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INTRODUCTION 


Voici une collection de programmes pratiques écrits spécialement en BASIC pour l'ordinateur 
personnel d’I.B.M. Ces programmes répondent à de nombreux besoins pratiques courants. Vous 
pourrez les exploiter que vous sachiez ou non programmer en Basic. En effet, notre objectif n’est 
nullement, ici, de vous enseigner l’art de la programmation en Basic : il existe, pour cela, quantité 
d'ouvrages ; ce que nous avons voulu, c’est vous fournir des listages complets et exacts de 
programmes utiles que nous avons largement commentés et pour lesquels nous vous donnons des 
exemples d'exécution concrets. Ainsi, que vous soyez ou non des familiers du Basic, il vous suffira de 
les copier, de les introduire en machine puis de les exécuter : ils répondent en tous points à ce que nos 
exemples vous montrent. 


Ajoutons que la présente adaptation française de ce livre a donné lieu à une vérification complète sur 
machine de ces programmes francisés ; elle ne résulte donc pas d’une simple traduction. Les listages 
que vous trouverez dans ces pages aussi bien que les exemples d’exécution résultent tous de sorties de 
l'ordinateur sur imprimante, ce qui exclut, en outre, tout risque d’erreur de transcription. 


Des «remarques» ont été introduites dans ces listages afin d’aider ceux qui programment en Basic à 
bien comprendre le fonctionnement des programmes. Elles vous assisteront lorsque vous voudrez 
incorporer ces séquences dans vos propres programmes en identifiant leurs sections principales. 
L’indication «remarques» figure en tête de ligne avec l’ordre REM et précède les commentaires. Vous 
pouvez omettre de frapper ces REM lorsque vous entrez les programmes en machine car de toutes 
façons, elles sont ignorées par l'ordinateur et occupent de la mémoire. 


Certains programmes incluent également des options. Une option consiste en une modification qui 
change le format de l'entrée ou de la sortie. Elles vous suggèrent diverses possibilités qui vous 
permettront de modifier ensuite ces programmes si vous devez les adapter à vos besoins. Nous avons 
introduit une brève description, un exemple, une exécution et un listage partiel pour chacune de ces 
options. Le listage partiel comporte les instructions qui doivent être modifiées lorsqu'on passe du 
programme d’origine à l’option. Les lignes qui doivent être modifiées, ajoutées ou supprimées sont 
marquées en grisé afin de mieux attirer votre attention. 


Tous ces programmes peuvent être exécutés sur la plus petite des configurations de l'ordinateur 
personnel I.B.M. Il vous faudra une disquette pour les sauvegarder, mais ces programmes ne font pas 
appel par eux-mêmes à une disquette. 


D'autre part, ils ont été écrits pour un écran de 80 colonnes. Toutes les sorties apparaissent sur 
l'écran, à l'exception de quelques tracés qui font appel à une imprimante. Vous pouvez modifier 
l'ensemble de ces programmes afin d'obtenir une sortie sur imprimante en substituant l’ordre 
«LPRINT» à l’ordre «PRINT». Les paramètres d’entrée ne seront toutefois pas imprimés, sauf si un 
ordre : 

LPRINT X1, X2, X3,---, Xn 
est inséré après chaque ligne : 

INPUT X1, X2, X3, ---, Xn 


lignes dans lesquelles X1, X2, X3, ---, Xn représentent les variables demandées en entrée. 


Bien entendu, les programmes prévus pour des seules sorties sur imprimante peuvent, à leur tour, être 
modifiés afin de sortir sur écran. Dans ce cas, remplacez les {LPRINT» par des «PRINT». 
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VALEUR FUTURE 
D'UN INVESTISSEMENT 


Ce programme calcule la valeur future d’un investissement pour un taux d’intérêt 
donné. On doit fournir le montant de l’investissement initial, le taux d’intérêt nominal (*), 
le nombre de périodes annuelles de composition de l’intérêt et la durée en années de l’inves- 
tissement. 


En supposant qu’il n’y ait ni dépôts ni retraits pendant la durée de l’investissement, la 
valeur future se calcule au moyen de la formule : 


T = P(1 +i/NN.Y 


= valeur de l’investissement après Y années (valeur future) 
investissement initial 

= taux d'intérêt nominal 

nombre de périodes annuelles de composition de l’intérêt 
= nombre d’années 


nn de 
Il 


KEY OFF : CLS :COLOR 0,7,0 
PRINT "VALEUR FUTURE D'UN INVESTISSEMENT" 


COLOR 7,0,0 
DEFDEL A-Z 
FRINT 


REM — DE 7Q À 140 UNE ENTREE EST NECESSAIRE 
PRINT "INVESTISSEMENT INITIAL"'; 

INFUT F 

FRINT "TAUX D’INTERET NOMINAL (%)°"3 


100 INFUT I 
110 FRINT "NOMBRE DE FERIODES ANNUELLES DE COMFOSITON"; 


INFUT N 


REM — CALCUL DU TAUX D°INTERET FAK FERIODE: 

REM — CONVERTIR DE % A DECIMAL 

I=I/N/100 

REM — CALCUL DE LA VALEUR FUTURE PAR LA FORMULE 
T=FX (1+1) 7% (NXY) 


200 REM — ARRONDIR AU CENTIME LE FLUS FRES, IMFRIMER 
210 FRINT "VALEUR FUTURE ="; 


220 PRINT USING "HHHSHHH,HHHOHH FUIT 
230 REM — UNE LIGNE DE SEFARATION ENTRE DONNEES ET QUESTION 
240 FRINT 


230 REM -— RELANCE OÙ ARRET DU PROGRAMME? ENTREE NECESSAIRE 
260 PRINT "AUTRES DONNEES (1=OUI, O=NON) "; 

270 INFUT X 

280 IF X=1 THEN 50 

290 FRINT:PRINT "XXXXX FIN DU FROGRAMME XXXkxkx" 


(*) Le taux d'intérêt, quelque soit sa définition (nominal, facial, effectif, actuariel, etc.) est toujours sous-entendu annuel. 


7 


Exemples : 
Charles fait un investissement de 6 800 F à 9,5 %. Si l’intérêt est composé trimestrielle- 
ment, quelle sera la valeur de l’investissement de Charles dans 10 ans ? 


Monsieur Smith achète une propriété au prix de 16 050 F. La valeur de cette propriété 


augmente en moyenne de 7 % l’an. Quelle sera la valeur de cette propriété dans cinq années 
et demi ? 


VALEUR FUTURE D'UN INVESTISSEMENT 


INVESTISSEMENT INITIALF 6800 

TAUX D'INTERET NOMINAL (2)? 9.5 

NOMBRE DE FERIODES ANNUELLES DE COMFOSITON?F 4 
NOMBRE D’ANNEES? 10 

VALEUR FUTURE = 17,3588.61 F 


AUTRES DONNEES (1=OUT,O=NON)? 1 


INVESTISSEMENT INITIAL?F 16050 

TAUX D'’INTERET NOMINAL (%)7 7 

NOMERE DE FERIODES ANNUELLES DE COMFOSITON? 1 
NOMBRE D'ANNEES? 5.5 

VALEUR FUTURE = 23,285.50 F 


AUTRES DONNEES (1=QOUI,O=NON)?7 0 


XXXXX FIN DU FROGRAMME XXxxx4 
Ok 


OPTION 

Ce programme permet d’entrer la durée de l’investissement uniquement en années entiè- 
res et fractions décimales d’années. Dans certains cas, on pourrait souhaiter entrer cette 
durée en années et mois. Les modifications nécessaires du programme sont données 
ci-dessous. 


1 REM -— OFTION 130 — 145 
10 FEY OFF : CLS :COLOR 0,7,0 
20 FRINT "VALEUR FUTURE D'UN INVESTISSEMENT" 
30 COLOR 7,0,0 
40 DEFDBL A-Z 
50 FRINT 
60 REM - DE 70 À 140 UNE ENTREE EST NECESSAIRE 
70 FRINT “INVESTISSEMENT INITIAL"; 
80 INFUT F 
90 FRINT “TAUX D’INTERET NOMINAL (%)"3 
100 INFUT I 
110 FRINT "NOMBRE DE FERIODES ANNUELLES DE COMFOSITON"; 
120 INFUT N 
FRINT "NOMBRE D'ANNÉES, DE MOIS"; 
INFUT YO,M 
REM — CALCUL DES ANNEES À FARTIR DES ANNEES ET MOIS 
Y= (12XYO+M) /17 
150 REM — CALCUL DU TAUX D'INTERET FAR FERIODE; 
160 REM - CONVERTIR DE % À DECIMAL 
170 I=I1/N/100 
180 REM - CALCUL DE LA VALEUR FUTURE FAR LA FORMULE 
190 T=FXx (1+1)"(NKY) 
200 REM — ARRONDIR AU CENTIME LE FLUS FRES, IMPRIMER 


210 FRINT "VALEUR FUTURE ="; 

220 FRINT USING "H#HS HE, H#HH# FUIT 

250 REM - UNE LIGNE DE SEFARATION ENTRE DONNEES ET QUESTION 
240 FRINT 


250 REM —- RELANCE OÙ ARRET DU FROGRAMME? ENTREE NECESSAIRE 


260 FRINT "AUTRES DONNEES (1=QUT, O=NON) ": 

270 INFUT X 

280 IF X=1 THEN 50 

290 PRINT:FRINT XXKXX FIN DU FROGRANME XXXXX" 


Exemple : 
Hubert investit 12 000 F à un intérêt de 8 % l’an. L’intérêt est composé tous les trimes- 
tres. Quelle sera la valeur de cet investissement au bout de 10 ans et 7 mois ? 


VALEUR FUTURE D'UN INVESTISSEMENT 


INVESTISSEMENT INITIALF 1:9000 
TAUX D'INTERET NOMINAL (2)7 8 
NOMRRE DE FERIODES ANNUELLES DE COMFOSITON® 4 
NOMBRE D°ANNEES,DE MOIS? 10,7 


VALEUR FUTURE = 27,749,56 F 


AUTRES DONNEES (1=OUI,O=NON)? © 


XXXXX FIN DU FROGRAMME #X#XX%X 
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VALEUR FUTURE D’UNE SÉRIE DE 
DÉPOTS RÉGULIERS (ANNUITÉS) (*) 


Ce programme calcule la valeur future d’une série de dépôt réguliers (*). On doit indi- 
quer le montant de chaque dépôt, le nombre annuel de dépôts, le nombre d’années et le taux 
d’intérêt nominal. 


En admettant que l’intérêt est composé lors de chaque dépôt, le calcul est fait par la for- 
mule suivante : 


T=Rr. A+iN"Y-1 
i/N 


valeur totale après Y années (valeur future) 
montant des dépôts 

nombre annuel de dépôts 

nombre d’années 

taux d’intérêt nominal 


Il 


EÉEY OFF : CLS :COLOK 0,7,0 
FRINT "VALEUR FUTURE D'UNE SERIE DE DEFOTS REGULIERS (CANNUITES)" 
COLOR 7,0,0 
DEFDEL A-Z 
FRINT 
REM -— DE 70 À 140 UNE ENTREE EST NECESSAIRE 
FRINT "MONTANT DES DEFOTS REGULIERS"; 
INFUT KR 
FRINT "TAUX D'°'INTERET NOMINAL (4); 
INFUT I 
FRINT "NOMBRE DE DEFOTS FAR AN": 
INFUT ON 
FRINT "NOMBRE D°ANNEES"": 
INFUT Y 
REM — CALCUL DU TAUX D'°'INTERET FAR FERIODE 
REM — CONVERTIR DE % À DECIMAL; 
I=I/N/100 
REM — CALCUL DE LA VALEUR FUTURE FAR LA FORMULE 
T=RX (C1+I)"(NKY)—-1)/I 
REM — ARRONDIR AU CENTIME LE FLUS FRES, IMFRIMER 
FRINT "VALEUR FUTURE="; 
FRINT USING "HH#HSH#HSHHEHCH# FUIT 
REM - UNE LIGNE DE SEFAKRATION ENTRE DONNEES ET QUESTION 


(*) par « réguliers » nous désignerons des opérations de périodicité fixe et de montants égaux. 
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FRINT 
REM — RELANCE OÙ ARRET DU FROGRAMME®T ENTREE NECESSAIRE 
FRINT "AUTRES DONNEES (1=QOUI, O=NON) "; 


INFUT X 
IF X=1 THEN 50 
FRINT:FRINT "KXXXX FIN DU FROGRAMME KXKXX" 


Exemples : 

Chaque mois et pendant une année, on vire 50 F du compte de chèques de Mathieu sur 
son compte d’épargne à 5 % d’intérêt. Quel sera le montant de ce dernier compte à la fin de 
l'année ? 


Thomas effectue des versements annuels de 175 F avec intérêt de 5,5 %. Quelle sera la 
somme accumulée par Thomas au bout de 15 ans. 


VALEUR FUTURE D°'UNE SERIE DE DEFOTS REGULIERS (ANNUITES) 


MONTANT DES DEFOTS REGULIERS? 50 
TAUX D'°INTERET NOMINAL (27 5 
NOMERE DE DEFOTS FAR ANT 17 
NOMERE D'ANNEES? 1 

VALEUR FUTURE= 613.96 F 


AUTRES DONNEES (1=OUI,O=NON)? 1 


MONTANT DES DEFOTS REGULIERS? 175 
TAUX D°INTERET NOMINAL (2)? 5.5 
NOMERE DE DEFOTS FAR AN? 1 

NOMRRE D°ANNEES? 15 

VALEUR FUTURE= 


AUTRES DONNEES (1=OUI,O=NON)? © 


XXKXX FIN DU FROGRAMME #XXKXXX 
OF 


OPTION 

Dans certains cas, on pourrait souhaiter entrer la durée de l’investissement en années et 
mois plutôt qu’en années et fractions décimales d’années. Les modifications nécessaires du 
programme sont données ci-après. 


1 REM — OFTION 170-145 

10 FEY OFF : CLS :COLOR 0,7,0 

20 FRINT "VALEUR FUTURE D'UNE SERIE DE DEFOTS REGULIERS (ANNUITES) " 
20 COLOR 7,0,0 

40 DEFDHL A-2 


50 FRINT 

60 REM — DE 790 À 140 UNE ENTREE EST NECESSAIRE 
70 FRINT "MONTANT DES DEFOTS REGULIERS": 

80 INFUT K 


90 PRINT "TAUX D'INTERET NOMINAL (%)"3 
100 INPUT I 
110 PRINT "NOMBRE DE DEFOTS FAR AN’: 
120 INFUT N 
FRINT "NOMERRE D'ANNEES,DE MOIS": 
INFUT YO,M 
REM — CALCUL DES ANNEES À FARTIR DES ANNEES ET DES MOIS 
Y=(12XYO+M) /17 
REM — CALCUL DU TAUX D°’'INTERET FAR FERIODE 
REM — CONVERTIR DE % A DECIMAL; 
I=I/N/100 
REM — CALCUL DE LA VALEUR FUTURE FAR LA FORMULE 
TERX (CC1+I) T7 (NXY)-1)/1I 
REM — ARRONDIR AU CENTIME LE FLUS PRES, IMFRIMER 
FRINT "VALEUR FUTURE="; 
FRINT USING CRASH HAE. HH FUIT 
REM — UNE LIGNE DE SEFARATION ENTRE DONNEES ET QUESTION 
FRINT 
REM — RELANCE OÙ ARRET DU FROGRAMME®? ENTREE NECESSAIRE 
FRINT "AUTRES DONNEES (1=QOUI, O=NON) ": 
INFUT X 
IF X=1 THEN 50 
FRINT:FRINT UKKKKkX*X FIN DU FROGRAMME XXxxxx" 


Exemple : 


Quel montant Robert recevra-t-il après 10 ans et 5 mois en transférant mensuellement 
50 F dans un fonds portant 5 % d’intérêt ? 


VALEUR FUTURE D'UNE SERIE DE DEFOTS REGULIERS (ANNUITES) 


MONTANT DES DEFOTS REGULIERS?T 50 
TAUX D'INTERET NOMINAL (27 5 
NOMERE DE DEFOTS FAR AN? 12% 
NOMERE D'ANNEES,DE MOIS? 10,5 
VALEUR FUTURE= 8,179.51 F 


AUTRES DONNEES (1=OUI,O=NON)? O 


XXXXX FIN DU FROGRAMME XXxXXxX 
Ok 
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DÉPÔTS RÉGULIERS 


Ce programme calcule le montant des dépôts réguliers nécessaires pour obtenir une 
valeur future donnée après une période de temps donnée. Il faut indiquer la valeur future, le 
taux d'intérêt nominal, le nombre annuel de dépôts et le nombre d’années. 


En admettant que l'intérêt est composé lors de chaque dépôt, le calcul est fait par la for- 

mule suivante : 
/N 
R=ET. — "2 — 

AE PN TSI 
= montant de chaque dépôt régulier 
— valeur future 
= taux d'intérêt nominal 
nombre annuel de dépôts 
= nombre d’années 


XZTN% 
Il 


KEY OFF : CLS :COLOR 0,7,0 

FRINT "DEFOTS REGULIERS" 

COLOR 7,0,0 

DEFDEL A-Z 

FRINT 

REM - DE 70 À 140 UNE ENTREE EST NECESSAIRE 

FRINT "VALEUR TOTALE DESIREE À LA FIN DE LA FERIODE": 
INFUT T 

FRINT “TAUX D°INTERET NOMINAL (%)"3 


150 
160 
179 
180 
190 
200 
210 
220 
250 
240 
2530 
260 
270 
280 
290 


INFUT 
FRINT 
INFUT 


REM — 
REM — 
I=I/N 
REM — 
R=TXI 
REM — 
FRINT 
PRINT 
REM — 
FRINT 
REM — 
FRINT 
INFUT 
IF À$ 
FRINT 


I 

"NOMBRE DE DEFOTS FAR AN": 

N 

"NOMBRE D'ANNEES"; 

YŸ 

CALCUL DU TAUX D'INTERET FAR DEFOTS 

CONVERTIR DE % À DECIMAL;: 
/109 

CALCUL DU MONTANT DES DEFOTS REGULIERS FAR LA FORMULE 
/ CCI+1)% CNKY) —-1) 

ARRONDIR AU CENTIME LE FLUS FRES, IMFRIMER 

"MONTANT DE CHAQUE DEFOT REGULIER=": 
USING "HHHSHHHSHHH.HH FUIR 

UNE LIGNE DE SEFARATION ENTRE DONNEES ET QUESTION 


RELANCE OÙ ARRET DU PROGRAMME? ENTREE NECESSAIRE 
"AUTRES DONNEES (O=OUI,N=NON) ": 

AS 
="0" THEN 50 

SPRINT "XXKXX FIN DU FROGRAMME #XXkxxx" 


Exemple : 


Mary voudrait posséder 1 000 F sur son compte d’épargne à la fin de l’année. Combien 
devra-t-elle déposer chaque mois avec un intérêt de 8 % pour les obtenir ? 
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DEFOTS REGULIERS 


VALEUR TOTALE DESIREE À LA FIN DE LA FERIODE? 1000 
TAUX D'INTERET NOMINAL (%)7 8 

NOMBRE DE DEFOTS FAR AN? 12 

NOMBRE D’ANNEES? 1 

MONTANT DE CHAQUE DEPOT REGULIER= 80.532 F 


AUTRES DONNEES (O=OUI,N=NON)? N 


XXXXX FIN DU FROGRAMME XKXKXX 


OPTION 

Dans certains cas, on pourrait souhaiter entrer la durée de l’investissement en années et 
mois plutôt qu’en années et fractions décimales d’années. Les modifications nécessaires du 
programme sont données ci-dessous. 


1 REM OFTION 130-145 
10 KÉEY OFF : CLS :COLOK 0,7,0 
20 FRINT "DEPOTS REGULIERS" 


INFUT _N 

FRINT "NOMBRE D'ANNEES, MOIS": 

INFUT YO,M 

REM — CALCUL DES ANNEES A FARTIR DES ANNEES ET DES MOIS 
Y= (12XYO+M)/12 

REM — CALCUL DU TAUX D°INTERET FAR DEFOTS 


FRINT:FRINT "XXKXX FIN DU FROGRAMME Xxxkxkx" 


Exemple : 


Edouard veut économiser 2 000 F pour s’offrir une nouvelle moto. Il aimerait disposer 
de cette somme dans un an et cinq mois. Quel doit être le dépôt mensuel, avec un intérêt de 
8 % ? 


DEFOTS REGULIERS 


VALEUR TOTALE DESIREE À LA FIN DE LA FERIODE?F 2000 
TAUX D’INTERET NOMINAL (%)7 8 
NOMBRE DE DEFOTS FAR ANT 12 


NOMBRE D'ANNEES,MOIS? 1,5 
MONTANT DE CHAQUE DEPOT REGULIER= 111.50 F 


AUTRES DONNEES (O=OUI,N=NON)? N 


XXXXX FIN DU FROGRAMME XKXXxXx 


14 


10 
20 
RYe) 
40 
50 
60 
70 
80 
90 


4 


RETRAITS RÉGULIERS 
D'UN CAPITAL 


Ce programme détermine les montants maximaux pouvant être régulièrement retirés 
d’un capital pendant une période de temps donnée. Comme précédemment, les retraits sont 
de mon‘ants identiques et l’intérêt est composé lors de chaque retrait. 


Le montant maximal de chaque retrait est donné par la formule : 


Re PE 
Œ+UNNT I ON 


montant de chaque retrait régulier 
capital initial 

taux d’intérêt nominal 

nombre annuel de retrait 

nombre d’années 


KZTTX 
Il 


Le programme détermine un montant maximal ; le solde restant en fin de période sera 
nul. On peut, avec les mêmes spécifications, retirer des montants moindres et laisser un 
solde positif en fin de période. 


KEY OFF : CLS :COLOR 0,7,0 

PRINT "RETRAITS REGULIERS D'UN CAPITAL" 
COLOR 7,0,0 

DEFDEL A-Z 

PRINT 

REM - DE 70 À 140 UNE ENTREE EST NECESSAIRE 
PRINT "CAPITAL INITIAL"; 

INFUT F 

PRINT "TAUX D'INTERET NOMINAL (%)"3 


100 INFUT I 

110 PRINT "NOMBRE DE RETRAITS FAR AN‘: 

120 INPUT N 

130 FRINT "NOMBRE D°ANNEES": 

140 INFUT Y 

150 REM —- CALCUL DU TAUX D'INTERET FAR FERIODE DE RETRAIT 
160 REM — CONVERTIR DE % À DECIMAL; 

170 I=I/N/100 

180 KEM —- CALCUL DU MONTANT DE CHAQUE RETRAIT FAR LA FORMULE 
190 R=FYX(I/CC1+I1) "CNXY)—-1)+1) 

200 REM — ARRONDIR AU CENTIME LE FLUS FRES, IMFRIMER 

210 FRINT "MONTANT DE CHAQUE RETRAIT="; 

220 PRINT USING "HHHSHHHOHH#H.H# FUIR 

230 REM -— UNE LIGNE DE SEFARATION ENTRE DONNEES ET QUESTION 
240 PRINT 

250 REM —- RELANCE OÙ ARRET DU FROGRAMME? ENTREE NECESSAIRE 
260 FRINT "AUTRES DONNEES (1=QOUI, O=NON) ": 

270 INFUT X 

280 IF X=1 THEN 50 

290 FRINT:FRINT "KXKXx*X FIN DU FROGRAMME XXxkxxk" 
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Exemple : 


David place 8 000 F à 9,5 %. Il envisage de faire des retraits mensuels pendant dix ans en 
laissant un solde nul. Quel sera le montant du retrait mensuel ? 


RETRAITS REGULIERS D'UN CAFITAL 


CAFITAL INITIALF 8000 

TAUX D'INTERET NOMINAL (2)? 9.5 
NOMERE DE RETRAITS FAR AN? 12 
NOMBRE D'ANNÉES? 10 

MONTANT DE CHAQUE RETRAIT= 


AUTRES DONNEES (1=OUI,O=NON)? © 


XXXXX FIN DU FROGRAMME KXXKkXxxx 
Ok 


OPTION 

Dans certains cas, on pourrait souhaiter entrer la durée de l’investissement en années et 
mois plutôt qu’en fractions décimales d’années. Les modifications nécessaires du pro- 
gramme sont données ci-dessous. 


1 REM —- OFTION 170-145 
10 KEY OFF : CLS :COLDR 0,7,0 
20 FRINT "RETRAITS REGULIERS D'UN CAFITAL" 


INFUT N 

FRINT "NOMBRE D'ANNÉES, DE MOIS"; 

INPUT YO,M 

REM — CALCUL DES ANNEES A FARTIR DES ANNEES ET DES MOIS 
Y= (12XYO+M) /12 

REM - CALCUL DU TAUX D°INTERET FAR FERIODE DE RETRAIT 


290 FRINT:FRINT "XXKKX FIN DU FROGRAMME XKXXX" 


Exemple : 
Combien pourrait-t-on retirer chaque semaine d’un capital initial de 8 000 F à 9,5 % 
d’intérêt pendant 10 ans et 5 mois ? 


RETRAITS REGULIERS D'UN CAFITAL 


CAFITAL INITIAL?F 8000 

TAUX D'INTERET NOMINAL (2)? 9.5 
NOMBRE DE RETKRAITS FAR AN? 52 
NOMBRE D'ANNÉES, DE MOIS? 10,5 
MONTANT DE CHAQUE RETRAIT= 


AUTRES DONNEES (1=OUI,O0=NON)?7 © 


XXXXX FIN DU FROGRAMME XXXXxx 
Ok 
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INVESTISSEMENT INITIAL 


Ce programme détermine l’investissement initial nécessaire pour obtenir une valeur 
future donnée après une période de temps donnée. On doit indiquer la valeur future souhai- 
tée, le nombre annuel de périodes de composition de l’intérêt, la durée de l’investissement et 
le taux d'intérêt nominal. 


L'investissement initial est calculé par la formule suivante : 


de L 
I + NP Y 


— investissement initial 

— valeur future 

nombre annuel de périodes de composition de l’intérêt 
— nombre d’années 

= taux d'intérêt nominal 


Tr he 2 °Ù 
I 


10 KEY OFF : CLS : COLOR 0,7,0 
20 FRINT "INVESTISSEMENT INITIAL" 
50 COLOR 7,0,0 
40 DEFDEL A-Z 
930 FRINT 
60 REM — DE 70 À 140 UNE ENTREE EST NECESSAIRE 
70 FRINT "VALEUR FUTURE DESIREE"; 
89 INFUT T 
90 PRINT "NOMBRE DE FERIODES DE COMPOSITION DE L'INTERET FAR AN": 
100 INFUT N 
"NOMERE D° ANNEES"; 
Y 
FRINT "TAUX D'INTERET NOMINAL (%)": 
INFUT I 
REM — CALCUL DU TAUX D'INTERET FAR FERIODE 
REM — CONVERTIR DE % À DECIMAL: 
I=1/N/100 
REM — CALCUL DE L'INVESTISSEMENT INITIAL 
F=T/(1+1)"%(NKY) 
REM — ARKONDIR AU CENTIME LE FLUS FRES, IMFRIMER 
FRINT "INVESTISSEMENT INITIAL ="; 
PRINT USING "H#HHSH#HH##.H# FU 
REM — UNE LIGNE DE SEFARATION ENTRE DONNEES ET QUESTION 
FRINT 
REM — RELANCE OÙ ARRET DU FROGRAMME®T ENTREE NECESGSAIRE 
PRINT "AUTRES DONNEES (O=QUI, NENON) "5 
INFUT A$ 
IF A$="0" THEN 50 
FRINT:FRINT KKXKXX FIN DU FROGRAMME XKXXXx" 


Exemples : 


Combien doit-on investir à 8,5 % pour obtenir 10 000 F au bout de 10 ans si l'intérêt est 
composé trimestriellement ? 


Merchant Savings souhaite vendre un bon de caisse qui vaudra 5 000 F cinq ans après la 
date de la vente. Avec un intérêt de 7.9 % composé quotidiennement quel doit être le prix de 
vente de ce bon ? 


INVESTISSEMENT INITIAL 


VALEUR FUTURE DESIREE? 10000 

NOMBRE DE FERIODES DE COMFOSITION DE L°INTERET FAR ANF 4 
NOMBRE D'’ANNEES? 10 

TAUX D'INTERET NOMINAL (%)7 8.5 

INVESTISSEMENT INITIAL = 


AUTRES DONNEES (O=QOUI,N=NON)? 0 


VALEUR FUTURE DESIREE? 5000 

NOMBRE DE FERIODES DE COMFOSITION DE L'INTERET FAR AN? 365 
NOMERE D'ANNEES? 5 

TAUX D°INTERET NOMINAL °(4)7 7.9 

INVESTISSEMENT INITIAL = 3,35368.37 F 


AUTRES DONNEES (O=OUI,N=NON)? N 


XXXXX FIN DU FROGRAMME XXXXX 
Ok 


OPTION 

Dans certains cas, on pourrait souhaiter entrer la durée de l’investissement en années et 
mois plutôt qu’en années et fractions décimales d’années. Les modifications nécessaires du 
programme sont données ci-dessous. 


1 REM - OFTION 110-125 
10 KEY OFF : CLS :COLOR 0,7,0 
20 FRINT "INVESTISSEMENT INITIAL" 
30 COLOR 7,0,0 
40 DEFDEL A-Z 
30 FKRINT 
60 REM -— DE 70 À 140 UNE ENTREE EST NECESSAIRE 
70 FRINT "VALEUR FUTURE DESIREE"; 
80 INFUT T 
90 FRINT "NOMBRE DE FERIODES DE COMFOSITION DE L°'INTERET FAR AN": 
100 INFUT N 
FRINT "NOMBRE D'ANNEES,DE MOIS"; 
INFUT YO,M 
REM — CALCUL DES ANNEES À FARTIR DES ANNEES ET DES MOIS 
Y=(12XYO+M)/12Z 
FRINT "TAUX D'°INTERET NOMINAL (%)": 
INFUT I 
REM — CALCUL DU TAUX D'INTERET FAR FERIODE 
REM — CONVERTIR DE % A DECIMAL; 
I=I/N/100 
REM - CALCUL DE L'INVESTISSEMENT INITIAL 


F=T/(1+1)"%(NXKY) 

REM — ARRONDIR AU CENTIME LE PLUS FRES, IMFRIMER 

PRINT "INVESTISSEMENT INITIAL ="; 

FRINT USING "#HHHAHH#.HHHOHE F'UIP 

REM — UNE LIGNE DE SEFARATION ENTRE DONNEES ET QUESTION 


PRINT 

REM — RELANCE OÙ ARRET DU FROGRAMME? ENTREE NECESSAIRE 
PRINT "AUTRES DONNEES (O=OUI, N=NON) "; 

INPUT A$ 

IF A$="0" THEN 50 

FRINT:FRINT "XX#XX FIN DU FROGRAMME Xxxxx" 


Exemple : 


Mary veut investir dans une caisse d’épargne pour avoir 4 000 F sur son compte dans 3 
ans et 8 mois. Avec 8 % d’intérêt composé mensuellement, quel est le montant initial que 
Mary doit investir ? 


INVESTISSEMENT INITIAL 


VALEUR FUTURE DESIREE?T 4000 

NOMBRE DE FERIODES DE COMFOSITION DE L'INTERET FAR AN? 12 
NOMERE D’ANNEES,DE MOIS? 5,8 

TAUX D'INTERET NOMINAL (%)7 8 

INVESTISSEMENT INITIAL = 2986.00 F 


AUTRES DONNEES (O=QOUI,N=NON)? N 


XXXXX FIN DU FROGRAMME XX#XXX 
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CAPITAL INITIAL NÉCESSAIRE 
POUR DES | 
RETRAITS RÉGULIERS DONNÉS 


Ce programme détermine le capital initial nécessaire pour permettre des retraits réguliers 
pendant une période de temps fixée. Le capital initial dépend du montant et de la périodicité 
des retraits, de la durée en années et du taux d’intérêt nominal servi sur le capital. Le pro- 
gramme calcule en fonction des données introduites, le montant du capital correspondant à 
un solde nul après le dernier retrait. Tout capital supérieur à celui calculé laissera dans les 
mêmes conditions un solde positif. 


En admettant que l’intérêt est composé lors de chaque retrait, le calcul est fait par la for- 


mule suivante : 
R.N 1 
P = Le 
i ( (1 + i/N"- ;) 


capital initial 

montant de chaque retrait régulier 
taux d’intérêt nominal 

nombre annuel de retraits 

nombre d’années 


No 2" 20 Ù 
| 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "CAFITAL INITIAL FOUR DES RETRAITS REGULIERS DONNES" 
COLOR 7,0,0 
DEFDEL A-Z 
PRINT 
REM - DE 70 À 140 UNE ENTREE EST NECESSAIRE 
FRINT "MONTANTS DES RETRAITS"; 
INFUT KR 
PRINT "TAUX D'INTERET NOMINAL (4) "3; 
INFUT I 
FRINT "NOMBRE DE RETRAITS FAR AN"; 
INFUT N 
FRINT "NOMBRE D° ANNEES"; 
INFUT Y 
REM - CONVERTIR DE % À DECIMAL 
I=1/100 
REM - CALCUL DU CAFITAL INITIAL 
P=RXN/ IX (1—1/ (C1+I/N)" CNKY)D D) 
REM - ARRONDIR AU CENT. FRES, IMPRIMER 
PRINT "CAFITAL INITIAL ="; 
PRINT USING HA#t##4#t, HHH. #4 FU 
REM — UNE LIGNE DE BLANC FOUR SEPARER DONNEES ET QUESTIONS 
PRINT 
REM - RELANCE OÙ ARRET DU FROGRAMME? ENTREE NECESSAIRE 
PRINT "AUTRES DONNEES (O=QOUI,N=NON) “; 
INFUT A$ 
IF A$="0" THEN 50 
PRINT:FRINT “XXXXX FIN DU FROGRAMME X4kkxkx" 
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Exemple : 


Combien doit-on investir à 6 % pour pouvoir retirer 100 F mensuellement pendant 5 
ans ? 


CAFITAL INITIAL FOUR DES RETRAITS KEGULIERS DONNES 


MONTANTS DES RETRAITS? 100 
TAUX D'INTERET NOMINAL (%) 7 6 
NOMERE DE RETRAITS FAR AN? 127 
NOMBRE D'ANNEES? 5 

CAFITAL INITIAL = 


AUTRES DONNEES (O=OUI,N=NON)7 N 


XXXXX FIN DU FROGRAMME XXXXX 


OPTION 

Dans certains cas, on pourrait souhaiter entrer la durée de l’investissement en années et 
mois plutôt qu’en années et fractions décimales d’années. Les modifications nécessaires du 
programme sont données ci-dessous. 


1 REM -— OFTION 130-145 
10 KEY OFF : CLS :COLOK 0,7,0 
20 FRINT "CAFITAL INITIAL FOUR DES RETRAITS REGULIERS DONNES" 


INFUT N 

FRINT "NOMBRE D'ANNÉES, DE MOIS"; 

INFUT YO, M 

REM - CALCUL DES ANNEES À FARTIR DES ANNEES ET DES MOIS 
Y=(1Z2KXYO+M) /12 

REM — CONVERTIR DE % À DECIMAL 


PRINT: FRINT ÆXX#X4XX FIN DU PROGRAMME XKXxxxk" 


Exemple : 


Tony a retiré 250 F par mois pendant 6 ans et 5 mois. Quel était son capital initial à 6 % 
d’intérêt. 


CAFITAL INITIAL FOUR DES RETRAITS REGULIERS DONNES 
MONTANTS DES RETRAITS? 250 


TAUX D'’INTERET NOMINAL (%) 7 6 
NOMERE DE RETRAITS FAR AN? 12 


NOMBRE D°ANNEES, DE MOIS? 6,5 
CAFITAL INITIAL = 15,944.83% F 


AUTRES DONNEES (O=QOUI,N=NON)®? N 


KXXXXX FIN DU FROGRAMME *XXXXX 
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TAUX D’INTERÊT NOMINAL 
SERVI SUR UN CAPITAL 


Ce programme détermine le taux d’intérêt nominal lorsqu’on connaît les montants du 
capital initial, du capital final et la durée. Le taux d’intérêt nominal est généralement divisé 
en plusieurs périodes en vue de sa composition périodique pendant l’année. 


Le calcul de ce taux d’intérêt est fait par la formule suivante : 
i=N,.(T/P)'N YEN 


taux d’intérêt nominal 

= Çapital initial 

capital final (valeur future) 

nombre annuel de périodes de composition 
nombre d’années 


a bn DE” DES 
Il 


Le taux d’intérêt ji est exprimé en % par année, quoique le taux utilisé lors de la composi- 
tion des intérêts soit i/N. Le taux annuel nominal est inférieur au taux annuel effectivement 
servi lorsque les intérêts sont composés plus d’une fois par an ; en effet, le taux nominal ne 
tient pas compte dans ce cas des intérêts déjà cumulés pendant l’année en cours. 


Par exemple, un intérêt nominal de 5 % composé trimestriellement donnera sur un capi- 
tal de 100 F : 


; i/100 ra NOUVEAU 
PÉRIODE SOLDE nu INTÉRÊTS SOLDE 
1 100 00 À 0125 = 1 25 101 25 
2 101 25 : 0125 = 1 27 102 52 
3 102 52 - .0125 = 106 103 80 
4 103 80 ‘ 0125 = 1 30 105 10 


Le taux d’intérêt effectif dans cet exemple est de 5,1 % pour un taux nominal de 5 %. 
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KEY OFF : CLS :COLOR 0,7,0 
PRINT “TAUX D’INTERET NOMINAL SERVI SUR UN CAFITAL" 
COLOR 7,0,0 
DEFDEL A-Z 
FRINT 
REM —- DE 70 À 140 UNE ENTREE EST NECESSAIRE 
PRINT "CAPITAL INITIAL"; 
INFUT F 
PRINT “VALEUR FUTURE"; 
INFUT T 


FRINT "NOMBRE D'ANNEES"; 
INFUT Y 


FRINT "NOMBRE ANNUEL DE FERIODE DE COMFOSITION": 

INFUT N 

REM — CALCUL DU TAUX D’INTERET NOMINAL, IMPRIMER 

IP=NX CCT/F) C1/ (NXY))—-1) K100 

FRINT "TAUX D’INTERET NOMINAL="; 

PRINT USING CHF. HAHHH# Us ID 

REM - UNE LIGNE DE BLANC FOUR SEFARER DONNEES ET QUESTIONS 
FRINT 

REM — RELANCE OÙ ARRET DU FROGRAMME? ENTREE NECESSAIRE 
FRINT "AUTRES DONNEES (1=OUI, O=NON) "; 

INFUT X 

IF X=1 THEN 50 

FRINT:FRINT "HN FIN DU PROGRAMME KKXKkkx" 


Exemples : 


Jane place 945 F dans une caisse d’épargne. Quatre années et demi plus tard, elle possède 
1 309,79 F. Avec un intérêt composé mensuellement, quel est le taux d’intérêt nominal servi 
par la caisse d’épargne ? 


Benjamin place 3 000 F. Dix ans plus tard, il a gagné 1 576 F d’intérêts. Avec un intérêt 
composé mensuellement, quel est le taux d’intérêt nominal correspondant ? 


TAUX D°INTERET NOMINAL SERVI SUR UN CAFITAL 


CAFITAL INITIAL®F 945 

VALEUR FUTURE? 1509.79 

NOMBRE D'ANNEES? 4.5 

NOMERE ANNUEL DE FERIODE DE COMFOSITIONF 12 
TAUX D°INTERET NOMINAL= 7.276135 7. 


AUTRES DONNEES (1=OUI,O=NON)7 1 


CAFITAL INITIAL?F 3000 

VALEUR FUTURE? 4576 

NOMBRE D’ANNEES?® 10 

NOMBRE ANNUEL DE FERIQDE DE COMFOSITION? 1% 
TAUX D°INTERET NOMINAL= 4.229959 7% 


AUTRES DONNEES (1=OUI,O=NON)? © 


XKXKXX FIN DU FROGRAMME XXXXX 
Ok 
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TAUX D’INTÉRÊT EFFECTIF 
SUR UN CAPITAL 


Ce programme calcule le taux d’intérêt effectif, connaissant le capital initial, la valeur 
future et la durée de l’investissement. Ce taux exprime le % d’intérêt effectivement obtenu 
au bout d’un an sur un capital (qui, comme déjà expliqué, est différent du taux d’intérêt 
annuel nominal lorsqu'il y a composition des intérêts pendant l’année). 


Le taux d’intérêt effectif est donné par la formule : 
i= (T/P)"Y-1 

taux d’intérêt effectif 

capital initial 


valeur future 
nombre d’années 


WOW I 


On peut aussi calculer le taux d’intérêt effectif sur des montants déjà investis et les inté- 
rêts cumulés. Ou bien calculer le taux d’intérêt effectif nécessaire pour obtenir à partir d’un 
capital initial donné une valeur future au bout d’un temps fixé. Par exemple, si l’on place 
5 000 F et que l’on souhaite avoir 6 800 F au bout de six ans, on peut calculer le taux d’inté- 
rêt effectif correspondant que la banque doit offrir. 


Le « taux d’intérêt effectif » peut aussi être employé pour calculer le taux réel de dépré- 
ciation d’un investissement. Prenons par exemple une voiture. Si on l’a achetée 7 534 F et 
vendue 3 555 F, trois ans plus tard, on trouve que sa dépréciation réelle (qui est un taux 
d’intérêt négatif) a été d’environ 22 % par an. 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "TAUX D'INTERET EFFECTIF SERVI SUR UN CAFITAL" 
COLOR 7,0,0 
DEFDEL A-Z 
PRINT 
REM - DE 70 À 120 UNE ENTREE EST NECESSAIRE 
FRINT "CAFITAL INITIAL"; 
INFUT F 
FRINT “VALEUR FUTURE"; 
INFUT T 
FRINT “NOMBRE D’ ANNEES"; 
INFUT Y 
REM - CALCUL DU TAUX D°'INTERET EFFECTIF, IMPRIMER 
FRINT "TAUX D'INTERET ANNUEL EFFECTIF="; 
FRINT USING "####.#H##H## Z"5 CCT/F)7%(1/Y)-1) X100 
REM - UNE LIGNE DE BLANC FOUR SEFARER DONNEES ET QUESTIONS 
FRINT 
REM < RELANCE OÙ ARRET DU PROGRAMME? IMPRIMER 
FRINT "AUTRES DONNEES (1=OUI, O=NON) "; 
INFUT X 
IF X=1 THEN 50 
FRINT:FRINT "XXKXKX FIN DU PROGRAMME KKkkkx" 
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Exemples : 


Jane place 945 F à la caisse d'épargne. Quatre ans et demi plus tard, elle possède 
1 309,79 F. Quel est le taux d’intérêt effectif servi par la caisse d’épargne. 


John a acheté sa voiture en 1970 pour 7 534,84 F et l’a vendue en 1973 pour 3 555 F. 
Quel a été le taux effectif de dépréciation ? 


TAUX D'INTERET EFFECTIF SERVI SUR UN CAFITAL 


CAFITAL INITIAL?F 945 

VALEUR FUTURE? 1309.79 

NOMBRE D'ANNEES? 4.5 

TAUX D'INTERET ANNUEL EFFECTIF= 732375 % 


AUTRES DONNEES (1=OUI,O=NON)? 1 


CAFITAL INITIAL?F 7554.84 

. VALEUR FUTURE? 2555 

NOMRRE D'ANNEES? 3 

TAUX D'INTERET ANNUEL EFFECTIF= -22,15062 % 


AUTRES DONNEES (1=OUI,O=NON)?7 © 


XXXKXX FIN DU FROGRAMME XXXXX 
OH 
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ÉCHÉANCIER D’INTÉRÊTS 


Ce programme calcule et imprime un tableau des intérêts obtenus sur un capital. L’état 
comporte les sorties suivantes : 


1) Solde de chaque période 

2) Intérêts cumulés entre deux périodes 
3) Total des intérêts cumulés 

4) Taux d'intérêt effectif 


Ces sorties peuvent être calculées soit pour un investissement unique soit pour un inves- 
tissement initial avec dépôts ou retraits réguliers. Si le tableau est prévu pour un investisse- 
ment unique on doit indiquer le montant de cet investissement, le taux d’intérêt nominal et 
le nombre annuel de périodes de composition des intérêts. Le nouveau solde sera imprimé 
au maximum quatre fois par an. Si l’intérêt est composé moins de quatre fois par an, le nou- 
veau solde sortira à chaque échéance de composition des intérêts. 


Si le tableau est prévu pour des dépôts ou retraits réguliers, on doit indiquer le montant 
de l’investissement initial, le taux d’intérêt nominal, le nombre annuel et le montant de cha- 
que dépôt ou retrait. Dans ce cas, on admet que les intérêts sont composés quotidiennement 
(à 360 jours par an). Le nouveau solde sera imprimé lors de chaque dépôt ou retrait. 


10 KEY OFF : CLS :COLOR 0,7.0 

20 FRINT "ECHEANCIER D°INTERETS" 

30 COLOR 7,0,0 

40 DEFDEL A-Z : DEFSNG J-K 

SO PRINT 

60 REM — DE 70 A 170 UNE ENTREE EST NECESSAIRE 

70 PRINT "CAPITAL INITIAL"; 

80 INFUT F 

90 PRINT "TAUX D'INTERET NOMINAL (%)"3 

100 INFUT I 

110 REM — CONVERTIR DE % A DECIMAL 

120 1=1/100 

130 FRINT "NOMBRE DE DEFOTS/RETRAITS FAR AN": 

140 INFUT N1 

150 IF NI=ABS(INT(NI)) THEN 180 

160 FRINT "UTILISER UNE VALEUR ENTIERE FOSITIVE SVF":GOTO 130 
170 REM - NE FAS DEMANDER DE MONTANT S’IL N°Y A FAS 

175 REM -— DE DEFOT/RETRAIT 

180 IF N1=0 THEN 280 

190 REM - LES DEFOTS SONT ENTRES COMME NOMBRES FOSITIFS 
200 REM - LES RETRAITS SONT ENTRES COMME NOMBRES NEGATIFS 
210 FRINT “MONTANT DE CHAQUE DEFOT/RETRAIT ": 

220 INFUT R | 

230 REM - LES INTERETS SONT COMFOSES QUOTIDIENNEMENT 
240 N=%60 

250 REM - IMPRIMER ACHAQUE DEPOT/RETRAIT 


Z=N1 


GOTO 350 
PRINT "NOMBRE DE PERIODES DE COMPOSITION FAR AN ‘“: 
INFUT N 
N1=0 
REM — IMPRIMER QUATRE FOIS FAR AN 
2=4 
PRINT "A QUELLE ANNEE COMMENCER L'°IMFRESSION "“: 
INFUT X 
PRINT "A QUELLE ANNEE FINIR L°IMFRESSION ‘; 
INFUT Y 
REM — COMMENCER L'°IMFRESSION AU DERUT DE L’ANNEE 
X=INT(X) 
REM — INITIALISER LES TOTAUX COURANTS 
BO=F 
11=0 
12=0 
1:3=0 
KH=66 
F1=4 


FOR JO=1 TO INT(Y)+1 
REM - COMMENCER L'° IMPRESSION? 

IF JO{X THEN 720 
REM - TESTER FOUR LA FIN DE LA FAGE 

IF K£S5S THEN 710 
REM - FASSER A LA PAGE SUIVANTE 
REM - (EN ADMETTANT 66 LIGNES FAR PAGE) 
FOR Ki=K TO 66 
FRINT 
NEXT H1 
K=6 
REM - IMPRIMER LES EN-TETES 
PRINT TAB(21)"ECHEANCIER D°INTERETS" 
FRINT TAB(9)"CAFITAL F :":P3;"A":1X100:"% NOMINAL POUR “3: Y3 "ANNEE (S) 
REM - PASSER L’EN-TETE DES DEFOTS/RETRAITS 
REM - S’IL N°'Y EN A FAS 

IF Ni=0 THEN 640 
FRINT " DEFOTS/RETRAITS REGULIERS F :"3R:"--":N1:" FOIS FAR AN" 
REM - K COMPTE LE NOMBRE DE LIGNES IMFRIMEES PAR FAGE 
PRINT " TAUX EFFECTIF D°INTERET": 
PRINT USING "####.## Z FAR AN": 100% €C(1+I/N)%N—1) 
FRINT 
FRINT "ANNEE"; TAB(14);"SOLDE","  INTERETS","  INTERETS CUMULES" 
REM — CALCULER LES INTERETS 
FRINT 
REM — IMPRIMER LE NUMERO DE L'ANNEE 
PRINT USING "###":J0O: 
Li=i 

2=1 

'2= 1 
FOR Ji=i TO N 
REM - Y A-T-IL ENCORE DES ECHEANCES CETTE ANNEE? 

IF NZ2>N1i THEN 840 
REM - EST-CE L’ECHEANCE D'UN DEFOT/RETRAIT? 

IF N2/N1>J1/N THEN 840 
REM - CALCUL DU NOUVEAU SOLDE 
BO=RO+R 
REM - COMFTER LE NOMBRE D°ECHEANCES 
REM - DE DEFOTS/RETRAITS FAR ANNEE 
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850 N2=NE+1 

840 H2=ROX(1+1/N) 

850 REM — I1= MONTANT DES INTERETS A CHAQUE FERIODE 
855 REM -— DE COMFOSITION DES INTERETS 

860 I1=H72-HO 

870 REM -— 13= MONTANT DES INTERETS CUMULES ENTRE 
675 REM -— DEUX ECHEANCES A SORTIR EN IMFRESSION 

880 I3=15+I1 

890 REM — 12= TOTAL DES INTERETS CUMULES À CE JOUR 
900 I2=I12+I1 

310 REM — AKRONDIKR 

920 IF F2/F1:J1/N THEN 980 

950 IZ=INT(IZKI100+.5)/100 

940 IZ=INT(IE5K100+.5)/100 

950 R2=INT(HEZK100+.5)/100 

960 F2z= F3+1 

97Q REM — ANNEE DE DERUT D°IMFRESSION 

980 IF JO£X THEN 1080 

990 REM - DOIT-ON IMFRIMER UNE LIGNE 7? 

1000 IF J1/N#L1/L2 THEN 1080 

1010 Li=Li+i 

1020 FRINT USING "HHHEH, HHHH, HHHH. HHPF "5 B2, IS, I 
1050 FKRINT - 

1040 KREM — INTERETS ETANT EDITES, REINITIALISER 
1045 REM -— LES INTERETS ACCUMULES ENTRE DEUX EDITIONS 
1050 I15=0 

1060 K=kH+1 

1070 REM —- LE NUMERO DE L'ANNEE EST IMFRIME UNIQUEMENT 
1075 REM —- AVEC LE PREMIER FOSTE DE L'ANNEE 

1080 KHO=KH? 

1090 REM — ENCORE DES LIGNES À IMFRIMER FOUR LA DERNIERE ANNEE? 
1100 IF JO+JI1/N-1:=Y THEN 1170 

1110 NEXT Ji 

1120 REM — COMMENCER L°IMPRESSION ? 

1130 IF JO£X THEN 1160 

1140 FRINT 

1150 K=K+i 

1160 NEXT JO 

1170 PRINT 

1180 REM — RELANCE OÙ ARRET DU PROGRAMME 7 

1190 PRINT "AUTRES DONNEES ET CALCULS 7 (1=QOUI, O=NON)": 
1200 INFUT Z 

1210 FRINT 

1220 IF Z=i THEN 50 

1250 PRINT : PRINT "#XXXXx*X (FIN DU FROGRAMME) KXxkxx" 


Exemples : 


Carol investit dans un fonds 2 000 F à 9,5 % pour 10 ans. Les intérêts sont composés 
mensuellement. Quel est son solde annuel et les intérêts obtenus pour les deux dernières 
années ? 


John dépose 1 000 F à 8 % sur un compte d’épargne, et ensuite 50 F chaque mois. Quel 
est le tableau des intérêts obtenus sur la première année ? 


Thomas dépose 1 000 F à 8 % sur son compte d’épargne. Chaque trimestre, il retire 
150 F. Quel est le tableau des intérêts obtenus sur la première année ? 
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RUN Premier 
ECHEANCIER D'INTERETS exemple 


CAFITAL INITIAL? 2000 

TAUX D'INTERET NOMINAL (2)? 9.5 

NOMBRE DE DEFOTS/RETRAITS FAR AN? © 

NOMÈRE DE FERIODES DE COMPOSITION PAR AN 7 17 
À QUELLE ANNEE COMMENCER L'IMPFRESSION ? 9 

À QUELLE ANNEE FINIR L'°IMPRESSION ? 10 


ECHEANCIER D°INTERETS 
CAFITAL F 3 2000 À 9.5 % NOMINAL FOUR 10 ANNEE(S) 
TAUX EFFECTIF D°INTERET 9.92 7% FAR AN 


SOLDE INTERETS INTERETS CUMULES 


4,365.87F 2,365.87F 2,365.87F 
4,470. 38F 104.51F 2,470. 38F 
4,577.39F 107.01F 2,577.239F 
4,686.97F 109.568F 2,686.97F 


4,799.17F 112.20F 25:19917F 
4,914.06F 114.89F 2:914.06F 
91031.70F 117.64F 3,031.70F 


5,152.1SF 120.45SF 3,152.1SF 


AUTRES DONNEES ET CALCULS © (1=OUI, O=NON)? 1 


CAFITAL INITIALTF 1000 

TAUX D'INTERET NOMINAL (2)? 8 L 
NOMERE DE DEFOTS/RETRAITS FAR AN? 12% Deuxième 
MONTANT DE CHAQUE DEFOT/RETRAIT 7? 50 exemple 
À QUELLE ANNEE COMMENCER L'IMPRESSION ? 1 

À QUELLE ANNEE FINIR L'IMFRESSION ©? 1 


ECHEANCIER D°'INTERETS 
CAFITAL F : 1000 À 8 % NOMINAL FOUR 1 ANNEE(S) 
DEPFOTS/RETRAITS REGULIERS F : SO -- 12 FOIS FAR AN 
TAUX EFFECTIF D'INTERET .33 % FAR AN 


SOLDE INTERETS INTERETS CUMULES 


1,056.70F 6.70F 6.70F 
1.113. 78F 7.08F 35.78F 
1,171.24F 7.46F 21.24F 
1,229.08F 7.84F 29.08F 
1,287.32F 8.25F 37.32F 
1,245.94F 8.62F 45.94F 
1,404,95F 9.01F 54,95F 
1,464.56F 9.41F 64.,56F 
1,524.17F | D OTLF 74.17F 
1,584.358F 10.21F 64.5:8F 
1,644.98F 10.61F 94.96F 
1,706.00F 11:01F 106.00F 


AUTRES DONNEES ET CALCULS ? (1=OUI, O=NON)7 0 


ECHEANCIER D'°INTERETS 


CAFITAL INITIAL?F 1000 

TAUX D'INTERET NOMINAL (%)7 8 

NOMERE DE DEFOTS/RETRAITS FAR AN? 4 

MONTANT DE CHAQUE DEFOT/RETRAIT ? -150 Troisième 


exemple 


À QUELLE ANNEE COMMENCER L'°IMFRESSION ? 1 
A QUELLE ANNEE FINIR L°IMPFRESSION 7 1 


ECHEANCIER D°INTERETS 
CAFITAL F 3: 1000 À 8 % NOMINAL FOUR 1 ANNEE (S) 
DEFOTS/RETRAITS REGULIERS F :-150 —--— 4 FOIS FAR AN 
TAUX EFFECTIF D°INTERET 8.353 % PAR AN 


ANNEE SOLDE INTERETS INTERETS CUMULES 
1 870.17F 20.17F 20.17F 
757.71F 17.54F 37.71F 
602.58F 14.87F 932.958F 
464.72F 12.14F 64.72F 
AUTRES DONNEES ET CALCULS ? (1=QOUI, O=NON)?7 © 


XKXXXX (FIN DU FROGRAMME) Xxxxx 
OK 
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10 


TAUX DE DÉPRÉCIATION 


Ce programme calcule le taux de dépréciation annuel d’un bien matériel. On doit indi- 
quer le prix d’achat, le prix de revente et l’âge en années du bien en question. 


Ce taux est calculé par la formule : 


ant (7) 


taux de dépréciation 
prix d’achat 

prix de revente 

= âge en années 


Il 
| 


Il 


es 0 © 
I 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "TAUX DE DEFRECIATION" 
COLOR 7,0,0 

DEFDEL A-Z 

FRINT 

PRINT “FRIX D'ACHAT": 

INFUT F 

FRINT "VALEUR DE REVENTE": 
INFUT T 


PRINT "AGE (EN ANNEES)"; 
INFUT Y 


REM — CALCUL DU TAUX DE DEFRECIATION 
D=100Xx(1—-(T/PI%C1/Y)) 

REM — AKRKRONDIR, IMPRIMER 

FRINT "TAUX DE DEFRECIATION=" 

PRINT USING "H#HHHH.H#H#H# 2": D 

FRINT 

REM — RELANCE OÙ ARRET DU FROGRAMME® 
PRINT "AUTRES DONNEES (O=QOUI, N=NON) "; 
INFUT A$ 

IF A$="O" THEN 50 

PRINT:FRINT UXKkXXX FIN DU FROGRAMME #KXKkKxX" 


Exemple : 


Joan a acheté sa voiture au prix de 4 933,76 F et l’a revendue 2 400 F trois ans plus tard. 
Quel a été son taux de dépréciation ? 


TAUX DE DEFRECIATION 


FRIX D'ACHAT? 4953.76 
VALEUR DE REVENTE®F 2400 
AGE (EN ANNEES)? 3 

TAUX DE DEFRECIATION= 


21.353381 % 


AUTRES DONNEES (O=OUI,N=NON)? n 


XXXXX FIN DU FROGRAMME XKXXxxxX 
OK 
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10 

20 

40 

40 

JO 

60 

79 

80 

90 

100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2:50 
240 
250 
260 
270 
280 
290 
F00 
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MONTANT D’UNE DÉPRÉCIATION 


Ce programme calcule le montant de la dépréciation pour une année donnée d’un bien 
qui se déprécie. On doit indiquer le prix d’achat et le taux de dépréciation du bien ainsi que 
l’année pour laquelle on souhaite avoir le montant. 


Ce montant est calculé par la formule : 
D=P.i.(1-i)"-1 

montant de la dépréciation 

prix d’achat 


taux de dépréciation (annuel) 
année de dépréciation 


KT © 
I 


KEY OFF : CLS :COLOR 0,7,0 
FRINT “MONTANT D'UNE DEFRECIATION" 
COLOR 7,0,0 
DEFDEL A-Z 
FRINT 
PRINT "FRIX D'ACHAT"; 
INFUT F 
FRINT “TAUX DE DEFRECIATION (%)": 
INFUT I 
REM - CONVERTIR DE % À DECIMAL 
I=1/100 
FRINT 
PRINT "--(ENTRER: ANNEE=0 FOUR ARRETER LA DEFRECIATION A CE STADE) --" 
PRINT "ANNEES"; 
INFUT Y 
REM - EST-CE-QUE LE CALCUL EST FINI FOUR CE BIEN? 
IF Y=0 THEN 270 
REM - CALCUL DE LA DEFRECIATION 
D=PXxIX (1-1) (Y-1) 
REM — ARRONDIR AU CENTIME LE FLUS FRES, IMPRIMER 
FRINT “MONTANT DE LA DEFRECIATION ="; 
FRINT USING "A#t##,#i#t#,H##. HHF": D 
FRINT 
REM — RETOUR FOUR L'ANNEE SUIVANTE 
GOTO 140 
REM - RELANCE OÙ ARRET DU PROGRAMME? 
FRINT “AUTRES DONNEES (1=OUI, O=NON) "; 
INFUT X 
IF X=1 THEN 50 
FRINT:FRINT XXKKX FIN DU FROGRAMME XXX#4k" 
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Exemples : 


Joan a acheté sa voiture au prix de 4 933,76 F. Ce modèle de voiture se déprécie à un 
taux de 21 % par an. De quel montant s’est déprécié la voiture pendant chacune des trois 
premières années ? 


Joan se préoccupe aussi de la dépréciation des housses équipant l’intérieur de sa voiture. 
Elles ont coûté 155 F il y a deux ans et se déprécient à raison de 22 % par an. De combien 
tombera leur valeur pendant la troisième année ? 


RUN 
MONTANT D'UNE DEFRECIATION 


FRIX D'ACHAT? 4957.76 
TAUX DE DEFRECIATION (%)7 2%1 


—— (ENTRER: ANNEE=OQ POUR ARRETER LA DEFRECIATION À CE STADE) -- 
ANNEES”? 1 
MONTANT DE LA DEFRECIATION 1.036.09F 


ANNEES"? 2 
MONTANT LA DEFRECIATION 818.51F 


ANNEES? 3 
MONTANT LA DEFRECIATION 646.82F 


ANNEES? © 
AUTRES DONNEES (1=OUTI,O=NON)? 1 


PRIX D'ACHAT? 155 
TAUX DE DEPFRECIATION (%)7 22 


—— (ENTRER: ANNEE=O POUR ARRETER LA DEPFRECIATION A CE STADE) -- 
ANNEES®T 3 
MONTANT DE LA DEFRECIATION = 20.75F 


ANNEES? 0 
AUTRES DONNEES (1=OUI,O=NON)? © 


XKKX*X FIN DU PROGRAMME XXKXXXX 
OK 
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VALEUR RÉSIDUELLE 


Ce programme calcule la valeur résiduelle d’un bien à la fin d’une année donnée. Il faut 
indiquer l’âge du bien, son prix d’achat et son taux de dépréciation. La valeur résiduelle est 
donnée par la formule : 


S = P(I1 — i}* 


valeur résiduelle 
prix d’achat 

taux de dépréciation 
âge en années 


né T D La 
Il 


10 KEY OFF : CLS :COLOR 0,7,0 
20 PRINT "VALEUR RESIDUELLE" 


30 COLOR 7,0,0 

40 DEFDBL A-Z 

SO PRINT 

60 PRINT “FRIX D°ACHAT": 

70 INPUT F 

80 FRINT "TAUX DE DEPRECIATION (Z4)"s 
90 INFUT I 


100 REM — CONVERTIR LE TAUX DE DEFRECIATION EN DECIMAL 

105 REM — FOUR LES CALCULS 

110 ID=1/100 

120 FRINT 

150 PRINT "--(ENTRER: ANNEE=O0 FOUR S°ARRETER A CE STADE) --" 
140 PRINT "ANNEES"; 


150 INFUT Y 

160 REM — VEUT-ON CALCULER UNE AUTRE VALEUR? 
170 IF Y=O THEN 250 

180 REM — CALCUL DE LA VALEUR RESIDUELLE, ARRONDIR ET IMPRIMER 
190 PRINT "VALEUR RESIDUELLE="; 

200 PRINT USING "HHHSHHH,HHH.HHF "5 FX C1—-ID)"Y 
210 FRINT 

220 REM — RETOUR FOUR L°ANNEE SUIVANTE 

230 GOTO 140 

240 REM — RELANCE OÙ ARRET DU FROGRAMME? 

2350 FRINT "AUTRES DONNEES (1=OUI, O=NON) "3; 

260 INFUT X 

270 IF X=1 THEN 50 

280 PRINT:FRINT "XkkXkX FIN DU FROGRAMME XXKKxxX" 
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Exemples : 


Quelle est la valeur résiduelle de la voiture de Joan, qui, il y a trois ans, a été achetée 
4 933,76 F et se déprécie à un taux de 21 % l’an ? 


Quelle est la valeur résiduelle de l’électrophone de Joan, qui il y a 2 ans, a été acheté 
155 F et se déprécie à un taux de 22 % l’an ? 


RUN 
VALEUR RESIDUELLE 


FRIX D'ACHAT? 4935.76 
TAUX DE DEPRECIATION (%)7 21 


—— (ENTRER: ANNEE=O0 POUR S°’ARRETER À CE STADE) -- 
ANNEES? 35 
VALEUR RESIDUELLE= 2,432.54F 


ANNEES”? 4 
VALEUR RESIDUELLE= 1,921.70F 


ANNEES? © 
AUTRES DONNEES (1=OUI,O=NON)? 1 


FRIX D'ACHAT? 155 
TAUX DE DEFRECIATION (%)7 22 


—— (ENTRER: ANNEE=Q FOUR S°ARRETER À CE STADE) -- 
ANNEES? 2 
VALEUR RESIDUELLE= 94,50F 


ANNEES? 0 
AUTRES DONNEES (1=OUTI,O=NON) 7 © 


XXXKXX FIN DU FROGRAMME XKkxxx 
OK 
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CAPITAL D'UN PRÊT 


Ce programme calcule la partie en capital (ou principal) d’un prêt ; celui-ci dépend du 
taux d’intérêt nominal, du montant et de la périodicité des remboursements réguliers et de 
l'échéance du prêt. 


Le calcul est basé sur la formule : 


R.N 1 
P = 1- 
i ( A+iÜN Fr) 


= Capital du prêt 

= montant de chaque remboursement 
= taux d'intérêt nominal 

= nombre annuel de remboursements 
= nombre d’années (durée du prêt) 


KZ 


10 KEY OFF : CLS :COLOR 0,7,0 

20 PRINT "CAFITAL D'UN FRÈT" 

30 COLOR 7,0,0 

40 DEFDEL A-Z 

50 FRINT 

60 REM - DE 70 À 140 UNE ENTREE EST NECESSAIRE 
70 FRINT "REMBOURSEMENTS REGULIERS"; 

80 INPUT KR 


90 FRINT "DUREE EN ANNEES"; 

100 INFUT Y 

105 REM — FOUR LES CALCULS 

110 PRINT "TAUX D'INTERET ANNUEL (%)"3 

120 INFUT I 

1350 PRINT "NOMBRE DE REMBOURSEMENTS PAR AN‘; 


140 INFUT N 

150 REM — CALCUL DU MONTANT DU CAFITAL:; 

160 REM — CONVERTIR EN DECIMAL LE TAUX D°INTERET 

165 REM —- FOUR LE CALCUL 

170 P=RXNKk(1-1/C(CI1/100) /N+1)*(NXY))/(1/100) 

180 REM —- ARRONDIR AU CENTIME LE PLUS FRES, IMPRIMER 
190 PRINT USING "CAFITAL= HH#H#,H#H##HHHH.HH#F"s PF 

200 REM — UNE LIGNE DE BLANC FOUR SEFARER DONNEES ET QUESTIONS 
210 FRINT 

220 REM — RELANCE OÙ ARRET DU FROGRAMME? 

230 FRINT "AUTRES DONNEES (1=OUI, O=NON) "; 

240 INPUT X 

2530 IF X=1 THEN 50 

260 FRINT:PRINT "XKkkk*x FIN DU FROGRAMME Xxkxxx" 


Exemples : 


Susan a accepté de rembourser 250 F tous les deux mois pendant 3 ans pour un prêt à 
20 % d’intérêt. Quel est le capital emprunté ? 


Tom peut se permettre de régler 180 F par mois pour rembourser un prêt. Il les paiera 
pendant 4 ans et demi et les intérêts sont de 16 % l’an. Quel est le capital que Tom peut 
emprunter ? 
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CAFITAL D'UN PRET 


REMBOURSEMENTS REGULIERS? 250 
DUREE EN ANNEES? 3 

TAUX D°INTERET ANNUEL (%)7 20 
NOMBRE DE REMBOURSEMENTS FAR AN? 6 
CAPFITAL= 5, 343.45F 


AUTRES DONNEES (1=OUI,O=NON)? 1 


REMBOURSEMENTS REGULIERS?T 180 

DUREE EN ANNEES? 4.5 

TAUX D°'INTERET ANNUEL (%)7 16 
NOMERE DE REMBOURSEMENTS FAR AN? 12 
CAFITAL= 6,897.49F 


AUTRES DONNEES (1=OUI,O=NON)?7 © 


XXXXX FIN DU FROGRAMME XXXKkXxx%* 
OK 


OPTION 

Dans certain cas, on pourrait souhaiter entrer la durée du prêt en années et mois plutôt 
qu’en années et fractions décimales d’années. Les modifications nécessaires du programme 
sont données ci-dessous. 


1 REM - OPTION 90-105 
10 KEY OFF : CLS :COLOR 0,7,0 
20 PRINT "CAPITAL D'UN FRET" 


80 INFUT KR 

90 PRINT "DUREE EN ANNEES, EN MOIS"; 

100 INFUT YO,M 

104 REM - CALCULS DES ANNEES A FARTIR DES ANNEES ET DES MOIS 
105 Y=(12KkYO+M) /12 

110 FRINT "TAUX D'INTERET ANNUEL (%) "3 


260 FRINT:FRINT "XKkKkKkX FIN DU FROGRAMME XXKXX" 


Exemple : 
Quel sera le montant d’une hypothèque si l’on rembourse 75 F par mois pendant 
11 mois à 3 % d'intérêt ? 


CAPITAL D'UN FRET 


REMBOURSEMENTS REGULIERS?F 75 

DUREE EN ANNEES, EN MOIS? 0,11 

TAUX D'INTERET ANNUEL (%)7 3 

NOMBRE DE REMBOURSEMENTS FAR AN?F 12 
CAFITAL= 812.76F 


AUTRES DONNEES (1=QOUI,O=NON)?7 © 


KXXKXX FIN DU FROGRAMME XXXKXKX 
OK 
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REMBOURSEMENTS RÉGULIERS 
SUR UN PRET 


Ce programme calcule le montant de chaque remboursement régulier nécessaire pour 
acquitter un prêt sur une durée donnée. On doit indiquer le montant du capital emprunté, le 
taux d’intérêt nominal, le nombre annuel de remboursements réguliers et la durée en années. 
Le programme suppose bien entendu que les remboursements sont d’un montant égal. 


Le montant est basé sur la formule : 


montant de chaque remboursement 
taux d’intérêt nominal 

= capital 

nombre annuel de remboursements 
durée en années 


ZT > 
Il 


KEY OFF : CLS :COLOR 0,7,0 
PRINT "REMEOURSEMENTS REGULIERS SUR UN FRET" 
COLOR 7,0,0 
DEFDEL A-Z 
FRINT 
REM -— DE 70 À 140 UNE ENTREE EST NECESSAIRE 
FRINT "DUREE EN ANNEES"; 
INFUT _Y 
FRINT "CAFITAL"; 
INFUT F 
FRINT "TAUX D'INTERET NOMINAL (%)°"3 
INFUT I 
FRINT "NOMBRE DE REMEOURSEMENTS FAR AN": 
INFUT N 
REM — CALCUL DES REMEOURSEMENTS 
REM — CONVERTIR LE TAUX D'INTERET DE % A DECIMAL 
R=Ç(I1/100) XF/N)/(1-—-1/CCI1/100) /N+1) 7 CNXY)) 
REM — ARRONDIR AU CENTIME LE FLUS FRES, IMPRIMER 
FRINT USING "REMEOURSEMENTS REGULIERS = #HH#4H#, ##4# HH#4### F3 R 
REM — UNE LIGNE DE BLANC FOUR SEFARER DONNEES ET QUESTIONS 
FRINT 
REM — RELANCE OÙ ARRET DU FROGRAMME?® 
PRINT "AUTRES DONNEES (1=OUI, O=NON) "; 
INFUT X 
IF X=i THEN 50 
PRINT:FRINT "XXXKXX FIN DU FROGRAMME KkKkXxxxX" 
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Exemples : 


Combien doit-on rembourser sur un prêt de 4 000 F à 8 % avec des remboursements tri- 
mestriels pendant cinq années ? 


Si Michel emprunte 6 500 F à 12,5 % chez Best Rate Savings & Loans à rembourser 
mensuellement pendant 5 années et demi, quel sera le montant du remboursement men- 
suel ? 


RUN 
REMEOURSEMENTS REGULIERS SUR UN FRET 


DUREE EN ANNEES? 5 

CAFITALF 4000 

TAUX D'INTERET NOMINAL (2)? 8 

NOMBRE DE REMBOURSEMENTS FAR AN? 4 
REMEOURSEMENTS REGULIERS = 244.63 F 


AUTRES DONNEES (1=QOUI,O=NON)? 1 


DUREE EN ANNEES? 5.5 

CAFITAL?F 84500 

TAUX D'INTERET NOMINAL (2%)? 12.5 

NOMBRE DE REMBOURSEMENTS FAR ANT 12 
REMBOURSEMENTS REGULIERS = 156.868 F 


AUTRES DONNEES (1=OUI,O0=NON)? © 


XXXKX FIN DU FROGRAMME XXXXkXk 
OK 


OPTION 

Dans certain cas, on pourrait souhaiter entrer la durée d’un remboursement en années et 
mois plutôt qu’en années et fractions décimales d’années. Les modifications nécessaires du 
programme sont données ci-après. 


1 REM — OFTION 70-85 
10 KEY OFF : CLS :COLOR 0,7,0 
20 FRINT "REMEROURSEMENTS REGULIERS SUR UN FRET" 
50Q COLOR 7,0,0 
40 DEFDHL A-Z 
50 FRINT 
60 KEM — DE 70 À 140 UNE ENTREE EST NECESSAIRE 
PRINT "DUREE EN ANNEES, EN MOIS": 
INPUT YO,M 
REM — CALCUL DES ANNEES A FARTIR DES ANNEES ET DES MOIS 
Y=(12XYO+M) /17 
90 FRINT "CAFITAL"'": 
100 INFUT F 
110 PRINT "TAUX D'INTERET NOMINAL (%) "3 
120 INFUT I 
130 PRINT "NOMBRE DE REMBOURSEMENTS FAR AN"; 
140 INFUT N 
150 REM — CALCUL DES REMEOURSEMENTS 
160 KEM — CONVERTIR LE TAUX D'°'INTERET DE % A DECIMAL 
170 R=C(I/100) XF/N)/(1-1/C(C1/100) /N+1) *(NXY)) 
180 REM — ARRONDIR AU CENTIME LE FLUS FRES, IMPRIMER 
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FRINT USING "REMBOURSEMENTS REGULIERS = #4, Hit HH#t. HHF"s: R 
REM - UNE LIGNE DE ELANC FOUR SEFARER DONNEES ET QUESTIONS 
FRINT 

REM - RELANCE OÙ ARRET DU PROGRAMME? 

FRINT "AUTRES DONNEES (1=OUI, O=NON) "; 


INFUT X 
IF X=i THEN 50 
FRINT:FRINT UXKXKKXX FIN DU FROGRAMME XKX4X%4" 


Exemple 


Monsieur Terry a besoin de 10 000 F pour s’acheter une nouvelle maison. Best Rates lui 
offre ce prêt à 14 % d’intérêt, à rembourser mensuellement pendant 11 années et 5 mois. 
Quel sera le montant du remboursement mensuel ? 


REMEOURSEMENTS REGULIERS SUR UN FRET 


DUREE EN ANNEES, EN MOIS? 11,5 

CAFITAL? 10000 

TAUX D'INTERET NOMINAL (%)7 14 

NOMBRE DE REMBOURSEMENTS FAK AN? 127 
REMEQOURSEMENTS REGULIERS = 146.59 F 


AUTRES DONNEES (1=QOUI,O=NON)? © 


XXXXX FIN DU FROGRAMME XXXxxx%x 
OH 


10 
20 
Ke) 
40 
90 
60 
70 
80 


90 
100 INFUT F 

FRINT "DUREE EN ANNEES"; 

INFUT _Y 

FRINT "TAUX D'INTERET NOMINAL (%)"3 

INFUT I 

REM — CONVERTIR LE TAUX D'INTERET DE % À DECIMAL 
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DERNIER REMBOURSEMENT 
D'UN PRET 


Ce programme calcule le montant du dernier remboursement d’un prêt. Ce dernier rem- 
boursement achèvera l’amortissement du prêt à son échéance. On doit indiquer le montant 
en capital du prêt, le montant des remboursements réguliers, le taux nominal, le nombre 
annuel de remboursements et la durée du prêt. 


Le montant du dernier remboursement est couramment différent de celui des rembour- 
sements réguliers. Si le montant du dernier remboursement est supérieur à celui du rembour- 
sement régulier, il s’agit d’un remboursement « gonflé ». Un tel remboursement gonflé est 
nécessaire si le montant des remboursements réguliers appliqué au dernier laisse un solde 
débiteur. Afin de régler intégralement le prêt de son échéance, ce solde débiteur est ajouté 
au montant des remboursements réguliers donnant ainsi le montant du dernier rembourse- 
ment. 


Il se peut aussi qu’au contraire, le dernier remboursement soit inférieur au rembourse- 
ment régulier. Si le montant des remboursements réguliers appliqué au dernier laisse un 
solde créditeur, on doit minorer le montant en conséquence. Dans ce cas, on retranche du 
montant des remboursements réguliers le solde créditeur théorique donnant ainsi le montant 
du dernier remboursement. 


montant des solde théorique (algébrique) 
remboursements du prêt après Ney 
réguliers remboursements réguliers 


montant du 


dernier remboursement 


= nombre annuel de remboursements réguliers 
durée en années 


a 2 
| 


ÉEY OFF : CLS :COLOR 0,7,0 

FRINT "DERNIER REMEOURSEMENT D’UN FRET" 
COLOR 7,9,0 

DEFDEL A-Z : DEFSNG J 

FRINT 

REM - DE 70 A 180 UNE ENTREE EST NECESSAIRE 
FRINT "REMBOURSEMENTS REGULIERS":; 

INFUT KR 

FRINT "CAFITAL"; 


160 
170 
180 
190 
200 
205 
210 
220 


30 


240 


2530 


260 
270 
280 
290 


500 


1=1/100 

FRINT "NOMBRE DE REMBOURSEMENTS PAR AN": 

INPUT N 

EO=F 

REM — CALCULER TOUS LES REGLEMENTS ET SOLDES 

REM — JUSQU” AU DERNIER REGLEMENT EN UTILISANT KR 

FOR Ji=1 TO NXY 

REM — ARRONDIR LES INTERETS FAYES AU CENT. LE FLUS FRES 
I1=INTÇ(CHOXI/N) K100+.5)/100 

REM — CALCUL DE L'AMORTISSEMENT FOUR CHAQUE REMBOURSEMENT 
A=KR-T1 

REM — LE SOLDE DERITEUR DECROIT À CHAQUE REMEOURSEMENT 
EHO=ER0-A 

NEXT Ji 

REM — CALCUL DU DERNIER REMROURSEMENT, ARRONDIR, IMPRIMER 
PRINT USING "DERNIER REMBOURSEMENT = #HHHSHHHSHH#A#.## F':R+RO 
FRINT 

REM — RELANCE OÙ ARRET DU FROGRAMME? 

FRINT "AUTRES DONNEES (1=OUI, O=NON) ":; 

INPUT X 

IF X=1 THEN 50 

FRINT:FRINT UKXXKX FIN DU FROGRAMME XXKkxx" 


Exemples : 


Marylin emprunte 6 000 F à 5 %. Si elle rembourse 1 000 F par an pendant 7 ans, quel 


sera son septième (dernier ) remboursement ? Que se passera-t-il si les remboursements 
annuels sont de 1 200 F ? Puis de 250 F ? 


Marylin emprunte 1 150 F à 8 % à rembourser à raison de 75 F par mois. Un an et deux 


mois plus tard, elle décide de partir en Afrique. Combien devra-t-elle payer le mois suivant 
pour amortir le prêt ? 


DERNIER REMEOURSEMENT D'UN FRET 


REMBOURSEMENTS REGULIERS? 1000 

CAFITAL?F 6000 

DUREE EN ANNEES®T 7 

TAUX D'INTERET NOMINAL (2)? 5 

NOMBRE DE REMEOURSEMENTS FAR AN? 1 
DERNIER REMEQOURSEMENT = 1,2:00.59 F 


AUTRES DONNEES (1=QUI,O=NON)? 1 


REMRQURSEMENTS REGULIERS? 75 

CAFITAL?F 1150 

DUREE EN ANNEES? 1.17 

TAUX D'INTERET NOMINAL (%)7 8 

NOMRRE DE REMBOURSEMENTS FAR AN? 12 
DERNIER REMEOURSEMENT = 240.58 F 


AUTRES DONNEES (1=OUI,O=NON)?7 0 


XXXXX FIN DU FROGRAMME XKXKkXxX 


OK 
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ATTENTION 
e ligne 250 : si R-11<f 
l'amortissement est impossible 
e ligne 270 : si R + BŸ< le 
remboursement est déjà terminé ; 
il faut revoir soit la durée soit le 
montant des remboursements. 


OPTION 


Dans certains cas, on pourrait souhaiter entrer la durée du prêt en années et mois plutôt 


qu’en années et fractions décimales d’années. Les modifications nécessaires du programme 


S 


1 KR 
10 
Z20 
50 
40 
50 
60 
70 
80 
90 
100 


ont données ci-dessous. 


EM — OFTION 110-125 
KEY OFF : CLS :COLOR 0,7,0 


FRINT "DERNIER REMBOURSEMENT D'UN FRET" 
COLOR 7,0,0 
DEFDBL A-Z : DEFSNG J 
FRINT 
REM - DE 70 À 16) UNE ENTREE EST NECESSAIRE. 
PRINT "REMBOURSEMENTS REGULIERS"; 
INFUT KR 
PRINT "CAFITAL"; 
INFUT F 
FRINT "DUREE EN ANNEES, EN MOIS": 
INFUT YO,M 
REM - CALCUL DES ANNEES A FARTIR DES ANNEES ET DES MOIS 


5 Y=(1Z2XYO+M)/17 


130 
140 
150 
160 
170 
180 
190 
200 
205 
210 
220 
2:30 
240 
2950 
260 
270 
280 
290 
300 
310 
320 
370 
340 
350 
360 
Ok 


FRINT "TAUX D'INTERET NOMINAL (2); 

INPUT I 

REM — CONVERTIR LE TAUX D'INTERET DE % A DECIMAL 

1=1/100 

FRINT "NOMBRE DE REMEOURSEMENTS FAR AN": 

INPUT N 

BO=F 

REM — CALCULER TOUS LES REGLEMENTS ET SOLDES 

REM — JUSQU* AU DERNIER REGLEMENT EN UTILISANT KR 

FOR J1=1 TO NXxY 

REM — ARRONDIR LES INTERETS FAYES AU CENT. LE FLUS FRES 
T1=INT((BOXI/N)X100+.5)/100 

REM — CALCUL DE L'AMORTISSEMENT FOUR CHAQUE REMEOURSEMENT 
A=R-I1 

REM — LE SOLDE DEBITEUR DECROIT À CHAQUE REMEOURSEMENT 
BO=RO-A 

NEXT J1 

REM — CALCUL DU DERNIER REMEOURSEMENT, ARRONDIR, IMPRIMER 
FRINT USING "DERNIER REMBOURSEMENT = H#HH#,HH##S#HH##H.H# F5 R+EO 
PRINT 

REM — RELANCE OÙ ARRET DU FROGRAMME? 

FRINT "AUTRES DONNEES (1=QOUI, O=NON) "; 

INFUT X 

IF X=1 THEN 50 

FRINT:FRINT "XXKXXX FIN DU PROGRAMME *Xxxxx*" 


Exemple : 


Si l’on règle 40 F par mois pendant deux ans et trois mois sur un prêt de 1 200 F à 
7,5 %, quel sera le montant du dernier remboursement ? 


DERNIER REMEOURSEMENT D'UN FRET 


REMEOURSEMENTS REGULIERS?T 40 

CAFITAL?F 1200 

DUREE EN ANNEES, EN MOIS? 2,3 

TAUX D'INTERET NOMINAL ({%)7 7.5 

NOMBRE DE REMBOURSEMENTS FAR ANT 12 
DERNIER REMBOURSEMENT = 287,56 F 


AUTRES DONNEES (1=OUI,O=NON)? © 


XXXXX FIN DU FROGRAMME XX#X%X 
OH 
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SOLDE RESTANT DÜÙ SUR UN PRÊT 


Ce programme calcule le solde restant dû sur un prêt après un nombre de rembourse- 
ments donné. Il faut indiquer le montant de chaque remboursement régulier, le nombre 
annuel de remboursements, le capital, le taux d’intérêt nominal et le nombre de rembourse- 
ments après lequel on souhaite obtenir le solde restant dû. Ce solde est calculé par la 
méthode suivante : 


.-montant amorti après 
N°(Y - 1) + N1 
remboursements 


solde restant dû | = capital — 


= nombre annuel de remboursements 

— année du calcul du solde restant dû 

NI = numéro du remboursement de l’année Y après lequel on souhaite obtenir 
le solde restant dû 


KZ 
| 


KEY OFF : CLS :COLOR 0,7,0 
FRINT “SOLDE RESTANT DU SUR UN FRET" 
COLOR 7,0,0 
DEFDBL A-Z : DEFSNG J 
PRINT 
REM — DE 70 A 190 UNE ENTREE EST NECESSAIRE 
PRINT "REMBOURSEMENTS REGULIERS": 
INFUT R 
D PRINT "CAFITAL"; 
D INPUT F 
FRINT "NOMBRE DE REMBOURSEMENTS PAR AN"; 
INFUT N 
FRINT "TAUX D’INTERET NOMINAL (%)": 
INFUT I 
REM — CONVERTIR LE TAUX D’INTERET DE Z À DECIMAL 
1=1/100 
REM — ENTRER LE NUMERO DU REMEOURSEMENT DE L'ANNÉE 
REM — C'EST-A-DIRE N1£{=N 
FRINT "DERNIER REMEOURSEMENT (NUMERO DANS L’ANNEE, ANNEE)"; 
INFUT N1,Y 
INITIALISER LE SOLDE RESTANT DU 


EOUCLER FOUR CUMULER LE MONTANT REMEOURSE A CE JOUR 
FOR J1=1 T9 NXk(Y-—-1)+N1 
REM — CALCUL DE L'INTERET FAYE AVEC CHAQUE REMBROURSEMENT 
REM — AU CENTIME FRES 
T1=INT((BOKI/N) X100+.5)/100 
REM — CALCUL DU MONTANT AMORTI AVEC CHAQUE REMBOURSEMENT 
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A=R-11 

REM — CALCUL DU SOLDE RESTANT DU SUR LE CAPITAL 
RO=BO-A 

NEXT JI1 

REM — ARRONDIR ET IMFRIMER 

PRINT USING "SOLDE RESTANT DU = HHHSHHHSHHH.HH# F3 EO 


FRINT 


REM — RELANCE OÙ ARRET DU FROGRAMME? 
PRINT "AUTRES DONNEES (1=QOUI, O=NON) "; 
INFUT X 

IF X=1 THEN 50 

FRINT:FRINT "XXXXX FIN DU FROGRAMME Xxkkxkx" 


Exemple : 


Robert a obtenu un prêt de 8 000 F à 17,2 % d’intérêt. Il rembourse régulièrement 200 F 
par mois. S’il a remboursé pendant 3 ans et 10 mois de la quatrième année, combien Robert 
doit-il encore ? 


SOLDE RESTANT DU SUR UN FRET" 


REMEOURSEMENTS REGULIERS?F 200 

CAFITAL? 8000 

NOMERE DE REMBOURSEMENTS FAR AN? 12 

TAUX D'°INTERET NOMINAL (2)? 17.2 

DERNIER REMEOURSEMENT (NUMERO DANS L'ANNEE, ANNEE)? 10,4 
SOLDE RESTANT DU = 2496.17 F 


AUTRES DONNEES (1=OUI,9=NON)7 O 


XXXXX FIN DU FROGRAMME XXXXX 


OPTION 

On peut souhaiter indiquer le numéro du dernier remboursement comme le nombre total 
de remboursements effectués, plutôt que comme le numéro du remboursement d’une année 
donnée. Par exemple, si l’on effectue quatre remboursements annuels, le remboursement 3 
de l’année 3 sera introduit comme remboursement numéro 11. Les modifications nécessaires 
du programme sont données ci-après. 


1 REM - OFTION 170 - 190,230 
10 KEY OFF : CLS :COLOR 0,7,0 
20 PRINT "SOLDE RESTANT DU SUR UN PRET" 
30 COLOR 7,0,0 
DEFDEL A-Z : DEFSNG J 
FRINT 


REM -— DE 70 À 190 UNE ENTREE EST NECESSAIRE 
FRINT "REMBOURSEMENTS REGULIERS"; 
INPUT R 
FRINT "CAPITAL"; 
100 INFUT F 


FRINT "NOMBRE DE REMBOURSEMENTS FAR AN‘: 
INPUT N 
PRINT "TAUX D'’'INTERET NOMINAL (%)"; 
INPUT I 
REM — CONVERTIR LE TAUX D°'INTERET DE Z A DECIMAL 
1=1/100 
REM — ENTRER LE NOMBRE TOTAL DE REMBOURSEMENTS 
REM — EFFECTUES À CE JOUR 
FRINT "NOMERE DE REMEOURSEMENTS EFFECTUES"; 
INPUT N1 
200 REM — INITIALISER LE SOLDE RESTANT DU 
210 HO=P 
220 REM — EHOUCLER FOUR CUMULER LE MONTANT REMEOURSE A CE JOUR 
240 REM - CALCUL DE L'INTERET FAYE AVEC CHAQUE REMEQOURSEMENT 
245 REM - AU CENTIME FRES 
250 I1=INT((BOXI/N) k100+.5)/100 
260 REM —- CALCUL DU MONTANT AMORTI AVEC CHAQUE REMBEOURSEMENT 
270 A=R-I1 
280 REM -— CALCUL DU SOLDE RESTANT DU SUR UN FRET" 
290 HO=KHO-A 
200 NEXT Ji 
710 REM — ARRONDIR ET IMFRIMER 
320 FRINT USING "SOLDE RESTANT DU = #HH##t, #HHH,HHH.H# F's HO 
Z30 FRINT 
40 REM — RELANCE OÙ ARRET DU PROGRAMME? 
350 PRINT "AUTRES DONNEES (1=QOUI,O=NON) ":; 
360 INFUT X 
370 IF X=1 THEN 50 
380 FRINT:FRINT "XKKkKkXX FIN DU PROGRAMME *Xxxxkkx" 


Exemple : 


John a effectué dix remboursements trimestriels de 550 F sur un prêt de 6 000 F à 16 % 
d'intérêt. Quel est le solde restant dû ? 


SOLDE RESTANT DU SUR UN FRET" 


REMEBOURSEMENTS REGULIERS?F S5 

CAFITAL?F 6000 

NOMRRE DE FREMEQURSEMENTS FAR AN? 4 
TAUX D°INTERET NOMINAL (2)7 16 

NOMBRE DE REMEHOURSEMENTS EFFECTUES® 10 
SOLDE RESTANT DU = 2,278.09 F 


AUTRES DONNEES (1=OUI,O0=NON)? © 


XXXXX FIN DU FROGRAMME *XKKkXX 
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10 
20 
FO 
40 
50 
60 
70 
80 
90 
100 
110 
120 
150 
140 
150 
160 


17 


DURÉE D’UN PRÊT 


Ce programme calcule la durée nécessaire pour amortir un prêt. On doit indiquer le 
montant du prêt, le montant de chaque remboursement régulier, le nombre annuel de rem- 
boursements et le taux d’intérêt nominal. La durée du prêt est donnée par la formule : 


durée du remboursement en années 
capital 

taux d’intérêt nominal 

nombre annuel de remboursements 
montant de chaque remboursement 


DZ TU 
| 


ÉEY OFF : CLS :COLOR 0,7,0 
FRINT "DUREE D'UN FRET" 
COLOR 7,0,0 
DEFDEL A-Z 
FRINT 
REM -— DE 70 À 160 UNE ENTREE EST NECESSAIRE 
PRINT "REMEOURSEMENTS REGULIERS"3: 
INFUT KR 
FRINT "CAFITAL"; 

INFUT F 

FRINT "TAUX D'INTERET NOMINAL (%)"s 

INFUT I 

REM — CONVERTIR LES INTERETS DE % À DECIMAL FOUR CALCUL 
ID=1/100 

FRINT "NOMBRE DE REMEOURSEMENTS FAR AN’: 

INFUT N 

IF  (FXID)/(N#R)%= 1 THEN FRINT "FAS DE SOLUTION! REVOIR 
DONNEES": GOTO 210 

REM —- CALCUL DE LA DUREE DU FRET EN ANNEES 

OCR (PRO NOR CLR CRC ED AMEN 


RELANCE OÙ ARRET DU FROGRKAMME? 
FRINT "AUTRES DONNEES (O=OUI, M=NON) ": 
[NFUT A$ 


IF A$="0" THEN 50 
FRINT:FRINT "XX#X4X FIN DU FROGRAMME XKkXx4xx" 


48 


Exemples : 


Quelle sera la durée du remboursement d’une hypothèque de 20 000 F à 18 % lorsqu’on 
rembourse trimestriellement 1 000 F ? 


Carol emprunte 12 669 F à 16,8 %. Elle rembourse 512,34 F tous les deux mois. Quelle 
sera la durée de remboursement ? Que se passera-t-il si le remboursement bimestriel n’est 
plus que de 350 F ? 


DUREE D'UN FRET 


REMEOURSEMENTS REGULIERS?T 1000 
CAFITAL?F 20000 

TAUX D'INTERET NOMINAL (2)? 18 
NOMBRE DE REMBOURSEMENTS FAR AN? 
DUREE DU FRET = 135.1 ANNEES 


AUTRES DONNEES (O=OUI,N=NON)?7 0 


REMEQOURSEMENTS REGULIERS? 512.34 
CAFITAL?F 12669 

TAUX D°INTERET NOMINAL (7)? 16.8 
NOMERE DE REMBOURSEMENTS FAR AN? 
DUREE DU FRET = 7.1 ANNEES 


AUTRES DONNEES (O=QOUI,N=NON)? 0 


REMBOURSEMENTS REGULIERS?F 3550 
CAFITALF 12669 

TAUX D'°'INTERET NOMINAL (%2)7 16.8 
NOMERE DE REMHOURSEMENTS FAR AN? 6 
FAS DE SOLUTION! REVOIR VOS DONNEES 


AUTRES DONNEES (O=OUT,N=NON)?7 N 


XXXXX FIN DU FROGRAMME XKXXXX 
(RL 


OPTION 

On peut souhaiter calculer la durée de remboursement en années et mois plutôt qu’en 
années et fractions décimales d’années. Les modifications nécessaires du programme sont 
données ci-dessous. 


1 REM -— OFTION 190-205 

19 FEY OFF : CLS :COLOR 0,7,0 

20 FRINT "DUREE D'UN FRET" 

30 COLOR 7,0,0 

40 DEFDEL A-Z 

50 FRINT 

60 REM - DE 70 À 160 UNE ENTREE EST NECESSAIRE 
70 FRINT "REMEOURSEMENTS REGULIERS"; 


80 INFUT K 


90 FRINT "CAFITAL'; 

100 INFUT F 

110 FRINT "TAUX D'INTERET NOMINAL (%)'"3 
120 INFUT I 


199 
195 
198 


197 
199 
200 


205 


REM — CONVERTIR LES INTERETS DE % À DECIMAL FOUR CALCUL 
ID=1/100 

FRINT "NOMBRE DE REMEOURSEMENTS FAR AN‘: 

INFUT N 

IF (FXID)/(NKXR)%= 1 THEN FRINT "FAS DE SOLUTION! REVOIR VOS 
DONNEES": GOTO 210 

REM — CALCUL DE LA DUREE DU FRET EN ANNEES 
Y=-(LOG(1-(FKID)/ (NX) )/ (LOG(1+ID/N) XN)) 

REM — CALCUL DES ANNEES ET DES MOIS À FARTIR DES ANNEES 
TM=INT(Y#X12+.5) 

YO=TM\12 

M=TM-YOX17 

REM — IMFRIMER LES RESULTATS 

FRINT "DUREE DU FRET ="; YO; "ANNEES ‘":; 

IF M THEN PRINT "ET"; Ms "MOIS"; 

FRINT 

REM — RELANCE OÙ ARRET DU FROGRAMME? 

FRINT "AUTRES DONNEES (O=OUTI, N=NON) "; 

INFUT AS 

IF A$="0" THEN 50 

FRINT:FRINT "#X#X4X FIN DU FROGRAMME XXxx#x" 


Exemple : 


Jimmy a obtenu un prêt de 8 000 F à 7,5 %. Il rembourse mensuellement 150 F. Com- 
bien de temps faudra-t-il pour amortir le prêt ? 


DUREE D'UN FRET 


REMEOURSEMENTS REGULIERSF 150 
CAFITAL? 8000 

TAUX D'INTERET NOMINAL (%)7 7.5 
NOMBRE DE REMBOURSEMENTS FAR AN? 12 


DUREE DU FRET = 5 ANNEES ET S MOIS 
AUTRES DONNEES (O=OUI,N=NON) 7 N 


XXXXX FIN DU FROGRKAMME XXXXX 


OH 


50 
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TAUX D’INTÉRÊT NOMINAL 
D'UN PRÊT 


Ce programme calcule le taux d’intérêt nominal qui est chargé sur un prêt. Pour cela, on 
doit indiquer le montant du prêt, le montant des remboursements réguliers, le nombre 
annuel de remboursements et la durée du prêt. 


Le taux d'intérêt nominal est calculé par la méthode d’approximations successives sui- 
vante : 


1) Approximer une valeur du taux d’intérêt 
Initialiser approximation précédente à 0 


2) Calculer le montant des remboursements réguliers en utilisant la valeur du taux 
d’intérêt approximé : 
Ry= i. P/N 
1-(+i/N NT 
Arrondir R, 


3) Si le montant calculé = montant réel, alors le taux d’intérêt approximé = taux 
d’intérêt nominal 


4) Sinon, sauvegarder la valeur du taux d’intérêt approximé et calculer une nouvelle 
valeur approchée : 


i2 = I . 
D ns + siR <R 
i=it+ |(i-i) /2| { RIT R 
5) Aller à 2) 
avec : i = valeur en cours du taux d’intérêt 

b — valeur précédente du taux d’intérêt 

R = montant réel des remboursements réguliers 

R; = montant calculé des remboursements réguliers 

P = çapital 

N = nombre annuel de remboursements 

Y = durée en années. 


ÉEY OFF : CLS :COLOR 0,7,0 
FRINT "TAUX D'INTERET NOMINAL D'UN FRET" 


COLOR 7,0,0 


DEFDEL À-Z 3: 
FRINT 


ot 


60 KEM — DE 70 À 140 UNE ENTREE EST NECESSAIRE 
70 FRINT "REMBOURSEMENTS REGULIERS":; 
80 INPUT K 


"DUREE EN ANNEES"; 


Y 
110 PRINT "CAFITAL'": 
120 INFUT F 
130 FRINT "NOMBRE DE REMROURSEMENTS FAR AN"; 
140 INFUT N 
159 REM —- AFFROXIMER UNE VALEUR DU TAUX D'’'INTERET (10%) 
155 REM - FOUR INITIALISER LE TEST 
160 I=10 
170 REM -— IZ=AFFROXIMATION FRECEDENTE (COMMENCER FAR ZERO) 
180 12=0 
190 REM — CALCUL DE LA VALEUR DU REMBOURSEMENT REGULIER 
195 REM - AVEC LA VALEUR AFFROXIMEE DU TAUX D'INTERET 
200 R1=CIXP/N)/(C1-1/C(I/N+1)"CNXY))) 
210 REM — ARRONDIR AU CENTIME LE FLUS FRES 
220 RI=INT(RI#100+.5)/100 
230 REM — IS=NOMBRRE UTILISE FOUR FAIRE CONVERGER LA 
235 KEM — VALEUR DU TAUX D'°INTERET 
240 IZ=ABS(I-I12)/2 
250 REM — SAUVERGARDER CETTE VALEUR 
260 I12=! 
270 REM - COMPARER LE MONTANT CALCULE (R1) AU MONTANT REEL 
280 KEM — S'ILS SONT EGAUX, LA VALEUR EN COURS DU TAUX 
285 REM —- D'INTERET EST LA VALEUR NOMINALE 
290 IF RI1=R THEN 400 
O0 IF RISR THEN 760 
310 REM — RI£R, LA VALEUR NOMINALE EN COURS DU TAUX 
320 I=I+S 
250 REM —- TESTER À NOUVEAU 
340 GOTO 200 
3250 REM — RIER, LA VALEUR NOMINALE EN COURS DOIT ETRE 
235$ REM —- INFERIEURE À L°AFFROXIMATION EN COURS 
360 I=I-I3 
365 IF 12.001 THEN FRINT "FAS DE SOLUTION! REVOIR LES DONNEES": 
GOTO 410 
270 REM — TESTER À NOUVEAU 
380 GOTO 200 
290 REM — ARRONDIR ET IMFRIMER 
400 FRINT USING "TAUX D'°INTERET NOMINAL = HHH#H#.#H#### 25 IX100 
410 FRINT 
420 REM — RELANCE OÙ ARRET DU PROGRAMME? 
450 FRINT "AUTRES DONNEES (1=OUI, O=NON) "; 
440 INFUT X 
450 IF X=1 THEN 50 
460 FRINT:FRINT "X#XXXX FIN DU FROGRAMME XXk4x" 


Exemples : 
Karine a emprunté 3 000 F à son ami Georges en acceptant de rembourser 400 F trimes- 
triellement pendant deux ans. Quel est le taux d’intérêt chargé ? 


Pour rembourser un prêt de 10 000 F, John s’engage à faire des règlements mensuels de 
120 F pendant 9,5 années. Quel est le taux d’intérêt chargé ? 
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TAUX D'INTERET NOMINAL D'UN FRET 


REMEOURSEMENTS REGULIERS? 400 

DUREE EN ANNEES? € 

CAFITAL? 5000 

NOMERE DE REMBOURSEMENTS FAR AN? 4 
TAUX D'INTERET NOMINAL = 5.822771 


AUTRES DONNEES (1=OUI,O=NON)? 1 


REMBOURSEMENTS KEGULIERS? 120 

DUREE EN ANNEES? 9.5 

CAFITAL?F 10000 

NOMBRE DE REMBOURSEMENTS FAR ANT 12 
TAUX D°'INTERET NOMINAL = 6.935321 


AUTRES DONNEES (1=QOUI,O=NON)?7 0 


XXXXX FIN DU FROGRAMME *XXXXX 


OPTION 

Dans certain cas, on pourrait souhaiter entrer la durée du prêt en années et mois plutôt 
qu’en années et fractions décimales d’années. Les modifications nécessaires du programme 
sont données ci-dessous. 


1 REM - OFTION 90-105 
10 KEY OFF : CLS :COLOR 0,7,0 
20 FRINT "TAUX D'INTERET NOMINAL D'UN PRET" 


INFUT KR 
90 FRINT "DUREE EN ANNEES, EN MOIS": 
100 INFUT YO,M 
104 REM — CALCUL DES ANNEES A FARTIR DES ANNEES ET DES 
105 VY= (12XYO+M)/17 
110 FRINT "CAFITAL"; 


FRINT:FRINT "XXX#4X FIN DU FROGRAMME XXXXX" 


Exemple : 


Si Karine rembourse 100 F par mois pendant 11 ans et 7 mois sur un prêt de 10 000 F 
quel est le taux d’intérêt chargé ? 


TAUX D'INTERET NOMINAL D'UN FRET 


REMBOURSEMENTS REGULIERS?F 100 

DUREE EN ANNEES, EN MOIS? 11,7 
CAFITAL?F 19000 

NOMRRE DE REMEROURSEMENTS FAR AN? 12 
TAUX D'°INTERET NOMINAL = 6.000281 % 


AUTRES DONNEES (i1=OUI,O=NON)?7 0Q 


XXXXX FIN DU FROGRAMME #XXX#X%*X 
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TABLEAU D’AMORTISSEMENT 
D'UN PRET 


Ce programme calcule et imprime le tableau d'amortissement d’un prêt. Le tableau com- 
porte les sorties (colonnes) suivantes : 


1) Numéro du remboursement 

2) Partie de chaque remboursement correspondant aux intérêts 

3) Partie de chaque remboursement correspondant au capital amorti 
4) Solde restant dû sur le capital lors de chaque remboursement 

5) Intérêts cumulés lors de chaque remboursement 

6) Montant du dernier remboursement (en fin de tableau) 


De plus, les totaux annuels des intérêts payés (col.2) et du capital amorti (col. 3) sont 
imprimés à la fin de chaque année. 


Pour utiliser ce programme, on doit indiquer le montant de chaque remboursement 
régulier, la durée du prêt, le nombre annuel de remboursements, le montant du capital et le 
taux d’intérêt nominal. 


Les différentes sorties sont déterminées de la façon suivante : 


1) Numéro du remboursement = numéro de séquence de chaque remboursement dans une 
année. 


2) Partie de chaque remboursement correspondant aux intérêts = solde restant dû sur le 
capital au remboursement précédent . i/N 


avec: ji = taux d’intérêt nominal 
N = nombre annuel de remboursements 
3) Partie de chaque remboursement correspondant au capital amorti = R—-1] 
avec: R = montant du remboursement régulier 


TI = partie de chaque remboursement correspondant aux intérêt 


4) Solde restant dû sur le capital de chaque remboursement = P-— Z A 


avec: P = capital du prêt 
ZA =somme des parties de chaque remboursement correspondant au capi- 
tal amorti 


5) Intérêts cumulés lors de chaque remboursement = LI 
avec: ZI somme des parties de chaque remboursement correspondant aux intérêts 
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6) Montant du dernier remboursement = R+(P-R.°N-.Y) + ZI 


avec:  R = montant des remboursements réguliers 
P = capital du prêt 
N = nombre annuel de remboursements 
Y = durée du prêt en années 
ZI = somme des parties de chaque remboursement correspondants aux 
intérêts 


10 KEY OFF : CLS :COLOR 0,7,0 

20 FRINT "TABLEAU D'AMORTISSEMENT D'UN FRET" 

5O COLOR 7,0,0 

40 DEFDEL A-Z : DEFSNG J-K 

350 FRINT 

6Q REM -— DE 70 À 200 UNE ENTREE EST NECESSAIRE 
70 FRINT "REMBOURSEMENT REGULIER":; 

80 INFUT KR 

90 PRINT "DUREE EN ANNEES": 

100 INPUT Y 

110 FRINT "CAFITAL"; 

120 INPUT F 

1530 FRINT "TAUX D'’'INTERET NOMINAL'";: 

140 INFUT I 

150 REM — CONVERTIR DE % À DECIMAL 

160 I1=1/100 

170 FRINT "NOMBRE ANNUEL DE REMBOURSEMENTS"; 

180 INFUT N 

190 FRINT "A QUELLE ANNEE COMMENCER L°IMPRESSION": 
195 REM - AVEC LA VALEUR AFFROXIMEE DU TAUX D'°INTERET 
200 INFUT X 

210 REM — COMMENCER L°IMFRESSION AU DERUT D'UNE ANNEE 
220 X=INT(X) 

250 REM — INITIALISER LES VARIABLES 

240 C1=0 

259 12=0 

260 I1:=0 

270 J0=0 

280 NI=N 

290 K=66 

300 RO=F 

310 A1=0 

520 AZ=0 

230 FUS=UHHHSHHHS HER. HE FF!" 

340 REM — DUREE INFERIEURE A UNE ANNEE ? 

250 IF Yi=i THEN 410 

560 REM — AJUSTER LES VARIABLES FOUR DUREEXS1ANNEE 
3570 N1=CY-INT(Y))XN 

280 IF Yi THEN JO=i 

35390 GOTO 430 

400 REM — ROUCLE FOUR CHAQUE ANNEE 

410 FOR JO=1 TO Y 

420 REM — COMMENCER L'IMFRESSION ? 

450 IF JOSX THEN 670 

440 REM — DOIT-ON COMMENCER À LA FAGE SUIVANTE ? 
450 IF KE+N1+4{58 THEN 640 

4680 REM -— ESFACER AU DERUT DE LA FAGE SUIVANTE ? 
465 REM — (ON ADMET 66 LIGNES FAR FAGE) 


470 IF KH=66 THEN 520 

480 FOR FE1=F TO 66 

490 FRINT 

900 NEXT El 

920 FOR KZ=1 TO 4 

320 PRINT 

540 NEXT KE 

990 REM — IMPRIMER LES EN-TETES DE PAGE 

560 FRINT TAK(19) Te ù D° PR RES SENENT D° _ FRET" 


380 FRINT TAKH(19) "REMBOURSEMENTS REGULIERS = MERIT EF" 
390 FRINT 

600 FKRINT "NO. INTERETS AMORTISSEMENT": 
610 FRINT TAH(43) "SOLDE INTERETS CUMULES" 


620 REM - KH COMPTE LES LIGNES IMFRIMEES SUR CHAQUE PAGE 
620 H=9 
640 K=H+N1+4 
650 PRINT STRING$ (69,45) 
660 FRINT USING "ANNEE ##": JO 
670 FOR Ji=i TO Ni 
680 REM — CALCUL DE L'INTERET FAYE FOUR CE REMBOURSEMENT. 
685 REM — ARRONDIR 
690 I1=INT((BOXKI/N) k100+.5)/100 
700 REM - COMFTER LE NOMBRE DE REMBOURSEMENTS EFFECTUES 
710 Ci=Ci+1 
720 REM - CALCUL DU MONTANT AMORTI FOUR CE REMBOURSEMENT 
730 A=R-I1 
740 REM — SOMME DES MONTANTS AMORTIS A CE JOUR 
750 A1=A1+A 
760 REM - CALCUL DU SOLDE RESTANT DU 
770 BO=F-A1 
780 REM - DERNIER REMEOURSEMENT ? SI OUI, CALCUL DE SON 
790 REM - MONTANT DE FACON QUE LE SOLDE RESTANT SOIT 
795 REM - NUL AFRES CE REMBOURSEMENT 
800 IF CISINT(NXY) THEN 860 
810 R=R+BO 
820 A=A+B0 
30 A1=A1+E0 
840 EO=0 
850 REM - SOMME DES INTERETS FAYES A CE JOUR 
860 I2=127+11 
870 REM - SOMME DES INTERETS FAYES CETTE ANNEE 
980 I3=13+11 
890 REM - SOMME DES INTERETS AMORTIS CETTE ANNEE 
900 AT=AT+A 
910 REM - SAUTER A L'ANNEE DEMANDEE POUR IMPRIMER 
920 IF JO£X THEN 950 
930 FRINT USING "##": Ji; 
940 PRINT USING FU$S; I1,A,B0,12 
950 NEXT Ji 
960 REM — DERNIER REMBQOURSEMENT ? SI OUI, ARRONDIR ET IMPRIMER 
970 IF CI*INT(NXY) THEN 1010 
980 FRINT 
990 FRINT USING "DERNIER REMBOURSEMENT ="+PUS$: R 
1000 REM - SAUTER A L'ANNEE DEMANDEE FOUR IMPRIMER 
1005 REM - LES TOTAUX ANNUELS 
1010 IF JO£X THEN 1060 


1020 FRINT 
1030 FKRINT "TOTAUX"'; 
1040 FRINT USING " "+RIGHTS (PUS, 10) +" de - 13,A2 


1050 KEM — DUREE ACHEVEE 7? 
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1060 IF JO:Y THEN 1139 

1070 REM -— REINITIALISER LES VARIABLES ANNUELLES 

1080 I13=0 

1090 A2=0 

-1100 NEXT JO 

1110 REM — FAUT-IL IMPRIMER UNE ANNEE FARTIELLEMENT 7? 
1120 IF YINT(Y) THEN 570 


1170 FRINT STRINGS$ (67,45) 

1140 FRINT 

1150 REM —- RELANCE OÙ ARRET DU FROGRAMME?® 

1160 FRINT "AUTRES DONNEES (1=OUI, O=NON) ":; 

1170 INFUT Z 

1180 IF Z=i THEN 50 

1190 FRINT:FRINT "X#XXXxX FIN DU FROGRAMME #X*xxx" 


Exemple : 


David a besoin de 2 100 F pour payer ses dettes. Sa sœur lui offre cette somme à un inté- 
rêt de 6 %. En remboursant 75 F par mois pendant 2 1/2 années, quel sera le tableau de 
remboursement de l’emprunt de David ? 


TABLEAU D'AMORTISSEMENT D'UN FRET 


REMBOURSEMENT KREGULIER?F 75 

DUREE EN ANNEES? 2.5 

CAFITAL®F 2100 

TAUX D'INTERET NOMINAL?F 6 

NOMRRE ANNUEL DE REMBOURSEMENTS? 17 

À QUELLE ANNEE COMMENCER L'IMFRESSION?T 1 


TABLEAU D'AMORTISSEMENT D'UN FRET 


CAFITAL : 2100 F A 6 % FOUR 2.5 ANNEES 
REMEOURSEMENTS REGULIERS = 75 F 
NO. INTERETS AMORTISSEMENT SOLDE INTERETS CUMULES 
ANNEE 1 
1 10.50 F 64.50 F 2s058.950 F 10.50 F 
à 10.18 F b4.GE F 1970.68 F 20.668 F 
= 9.85 F 3.15 F 1,905.5S3 F 30.95 F 
4 D SS UF 65.47 F 1,840,.06 F 40.06 F 
D 9.20 F 65.80 F 1,774.26 F 49.26 F 
bé 8.87 F 66.15 F 1,708.15 F 58.15 F 
7 8.54 F 66.46 F 1,641.67 F 66.87 F 
8 21 F 66.79 F 1.574.688 F 74.88 F 
? 7.87 F 67.15: F 1,507.75 F 82.75 F 
10 7.54 F 67.48 F 1.440.279 F 90.29 F 
11 -20 F 67.80 F 1,3572.49 F 97.49 F 
12 6.86 F 68.14 F 1,304.,35 F 104,55 F 
TOTAUX 104.55 F 795.685 F 
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ANNEE ? 


=" 
Ji 


6.18 
5.84 
5.49 
5.14 
4.79 
4.44 
4.09 
3.73 
3.38 
3.02 


2.66 


68.48 F 1,235.87 
68.82 F 1,167.05 
69.16 F 1,097.89 
69.51 F 1,028.38 
69.86 F 958.52 
FO: .F 888.31 
70.56 F 817.75 
70.91 F 746.84 
71.27 F 675.57 
71.62 F 603.95 
71.98 F 531.97 
72.34 F 459.6Z 


119.87 F 
117.05 F 
122.89 F 
128.58 F 
135.52 F 
138.51 F 
142.75 F 
146.84 F 
150.57 F 
155.95 F 
156.97 F 
159.63 F 


SONG RATE 


TATIANA NNNTN 


ANNTNNANNNNUNNT 


TOTAUX 35.28 F 844.72 F 

ANNEE  Z 

2. 30 72.70 F 286.93 161.95 F 
1:93 753.07 F 315.86 165.86 F 
1,57 7ILA4E F 240.45 1685.45 F 
1.20 F 753.80 F 166.63 166.65 F 
0.83 74.17 F 92.46 167.48 F 
0.46 92.46 F 0.00 167.92 F 


CURE 


92.92 


AUTRES DONNEES (1=OUI,O0=NON)? © 


XXXXX FIN DU FROGRAMME XXXxxx 
Ok 


OPTION 

Dans certains cas, on pourrait souhaiter entrer la durée du prêt en années et mois plutôt 
qu’en années et fractions décimales d’années. Les modifications nécessaires du programme 
sont données ci-dessous. 


1 REM - OPTION 90-105,570 
10 KEY OFF : CLS :COLOR 0,7,0 


20 FRINT "TABLEAU D’ AMORTISSEMENT D'UN FRET" 
30 COLOK 7,0,0 

40 DEFDEHL A-Z : DEFSNG J-F 

50 FRINT 

60 REM -— DE 70 A 200 UNE ENTREE EST NECESSAIRE 
70 FRINT "REMROURSEMENT REGULIER"; 

80 INFUT KA 


FRINT "DURÉE EN ANNEES,MOIS"; 

INPUT YO,M 

REM —-CONVERTIR EN ANNEES A FARTIR DES ANNEES ET 
Y=(12XYO+M) /17 

FRINT "CAPITAL"; 

INFUT F 


FRINT "TAUX D'INTERET NOMINAL"; 
INFUT I 


560 FRINT TAR(19) "TABLEAU D°AMORTISSEMENT D'UN FRET" 
5370 FRINT TAR(14) "CAFITAL : "FIEF A"3IKI100: "ZX FOUR" 3;Y@5" 
ANNEES" 3M3"MOIS " 


580 FRINT TAR(19) "REMAOURSEMENTS REGULIERS = "s;R;" F" 


Exemples : 


Si l’on emprunte 700 F à 9 % d’intérêt et que l’on rembourse 100 F par mois pendant 8 
mois, quel sera le tableau d’amortissement correspondant ? 


TABLEAU D°AMORTISSEMENT D'UN FRET 


REMBOURSEMENT REGULIER? 100 
DUREE EN ANNEES, MOIS? 0,8 

CAPITAL? 700 

TAUX D°INTERET NOMINAL?T 9 

NOMERE ANNUEL DE REMBOURSEMENTS? 12 

A QUELLE ANNEE COMMENCER L° IMPRESSION? 1 


TABLEAU D'AMORTISSEMENT D'UN FRET 
CAFITAL 53 700 F A7 4 FOUR Q ANNEES 8 MOIS 
REMEOURSEMENTS REGULIERS = 100 F 


INTERETS AMORTISSEMENT SOLDE INTERETS CUMULES 


Ce ) 


9.79 
135.61 
16.71 
19.09 
20.73 
21.64 
21.80 


94.75 
95.46 
96.18 
66.90 
97.62 
58.36 
99,09 
21.64 


‘509.79 
413.61 
316.71 
219.09 
120,75 

21.64 
O.00 


1 F 
a F 
3 F 
4 F 
; F 
6 F 
7 F 
8 F 


TINTIN 
TT 


DERNIER REMROURSEMENT = 21.80 F 


TOTAUX 21.80 F 


DONNEES (1=OUI,O9=NON) 7 © 


XXXAXX FIN DU FROGRAMME XXXXX 
(RLE 
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10 
20 
30 
40 
ReTa] 
60 
70 
80 
90 
100 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


210 


20 


PLUS GRAND DÉNOMINATEUR 
COMMUN 


Ce programme calcule le plus grand dénominateur commun de deux entiers. Il est basé 
sur l’algorithme d’Euclide : 


1) Entrer À, B 


A = valeur absolue de À 
B = valeur absolue de B 


2) Calculer R = À — B : (partie entière de (A/B)) 


3) Est-ce que R = 0 ? 
Si oui, le PGDC = B 
Si non, aller à 4) 


4) A = B 
B=R 


5) Aller à 2) 


KEY OFF : CLS :COLOR 0,7,0 
FRINT “FLUS GRAND DENOMINATEUR COMMUN (FGCD)" 
COLOR 7,0,0 
DEFDEL A-Z 
PRINT 
FRINT "(ENTRER ©,0 FOUR ARRETER LE FROGRAMME) " 
FRINT "ENTRER DEUX NOMBRES"; 
INFUT A,B 
REM - A ET E SONT-ILS DES ENTIERS ? 
IF ASYINT(A) OR B£>INT(B) THEN FRINT "LES NOMBRES DOIVENT ETRE 
DES ENTIERS":; GOTO 70 
REM — ARRET DU FROGRAMME 
IF A=O OR B=0 THEN 260 
REM —- CALCUL DU FGCD SELON L'ALGORITHME D°EUCLIDE 
A=AES (A) 
E=ARS (E) 
R=A-BXINT (A/E) 
IF R=0 THEN 210 
A=E 
E=R 
GOTO 160 
FRINT "PGCD:"3;E 


230 PRINT 
240 REM -— RELANCER LE FROGRAMME 


250 GOTO 70 
260 FRINT : FRINT "X#%XXxXx FIN DU FROGRAMME XKXXx#Xx" 


Exemple : 


Trouver le PGDC de 50 et 18 et de 115 et 150. 


FLUS GRAND DENOMINATEUR COMMUN (FGCD) 


(ENTRER 0,0 FOUR ARRETER LE FROGRAMME) 
ENTRER DEUX NOMERES? 50,18 
FGCD: 2 


ENTRER DEUX NOMBRES? 115,150 
FGCD: 5 


ENTRER DEUX NOMBRES? 0,0 


XKXXX FIN DU FROGRAMME XXXKXX 
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FACTEURS PREMIERS D’ENTIERS 


Ce programme donne les facteurs d’un entier. Il ne fonctionne pas pour l’entier 0. 


KEY OFF : CLS :COLOR 0,7,0 

FRINT "FACTEURS FREMIERS D'ENTIERS" 

COLOR 7,0,0 

DEFDBL A-Z : DEFSNG I 

FUS=STRINGS (20, "#")+" Han 

PRINT 

FRINT "ENTRER © FOUR ARRETER LE FROGRAMME" 

FRINT "NOMBRE"; 

INFUT N 

REM — ARRET DU FROGRAMME 7? 
IF N=0 THEN 320 

REM — LE SIGNE DU NOMBRE EST TOUJOURS UN FACTEUR 
FRINT USING LEFT$(FUS#,20); SGN(N) 

REM - UTILISER LA VALEUR ABSOLUE FOUR LES CALCULS 
Z=ABS (N) 


REM — HOUCLER FOUR TESTER TOUS LES NOMBRES DE ? À 2/2 
REM — COMME FACTEURS FREMIERS 


FOR I=2 TO Z/? 

S=0Q 

IF Z/I£YINT(Z/I1) THEN 240 

Z=Z/I 

S=S+i 

GOTO 190 

REM — TROUVER LE FACTEUR FREMIER ? SI OUI, IMFRIMER 
IF S=0 THEN 270 

REM — IMPRIMER LES FACTEURS FREMIERS AVEC EXFOSANTS: 
REM — I®S=I A LA FUISSANCE S 

FRINT USING FUS$: I,S 

NEXT I 

IF ARS(N)=Z THEN FRINT USING PFUg$: Z.i 

PRINT 

REM — RELANCE DU FROGRAMME 

GOTO 80 

FRINT 3 FRINT "XKX#XxXx FIN DU FROGRAMME *Xxxxxx" 
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Exemples : 


Quels sont les facteurs premiers de — 49, 92 et 113 ? 


FACTEURS FREMIERS D'ENTIERS 


ENTRER © FOUR ARRETER LE FROGRAMME 
NOMBRE —49 
=1 


NOMBRE”? 


NOMBRE”? 


NOMERE? © 


XXXXX FIN DU FROGRAMME 
OK 


63 


22 


AIRE D'UN POLYGONE 


Ce programme calcule l’aire d’un polygône. On doit indiquer les coordonnées x et y de 
tous les sommets. Les coordonnées doivent être entrées dans l’ordre des sommets successifs. 


La formule utilisée pour le calcul de l’aire est : 


Aire = [Gt + X2) . On — 32) + Co + 23). O2 — 3) +. On + Xi): On — »1)]/2 


avec : n = nombre de sommets. 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "AIRE D'UN FOLYGONÉ" 
COLOR 7,0,0 
FRINT 
FRINT "NOMBRE DE SOMMETS O= ARRET DU FROGRAMME"; 
INPUT N 
REM — FIN DU FROGRAMME ? 
IF N£=0 THEN 320 
REM - LES TABLEAUX DE COORDONNEES DOIVENT ETRE DIMENSIONNES 
REM —- À (NOMBRE DE SOMMETS +1) 
DIM X(N+1) ,Y(N+1) 
REM - EBOUCLER FOUR ENTRER LES COORDONNEES DANS L’ORDRE 
REM - DES SOMMETS SUCCESSIFS 
FOR I=i TON 
IF Ii THEN 160 
PRINT "COORDONNEES DU SOMMET": 1; 
GOTO 170 


PRINT " DU SOMMET":;1; 


INFUT X(I),Y(I) 

NEXT I 

REM — LE FREMIER SOMMET SERT DE DERNIER SOMMET 
X(N+1)=X(1) 

Y(N+1)=Y(1) 

A=Q 

REM — CALCUL DE LA SURFACE, IMPRIMER 

FOR I=1 TON 

A=A+IX(ID)+X(I+1))X(Y(I)-Y(I+1)) 

NEXT I 

PRINT "SURFACE =";ARS(A/2) 

FRINT 

REM —- RELANCE DU FROGRAMME 

CLEAR 

GOTO 50 

PRINT : PRINT "XXXXx*X FIN DU FROGRAMME Xkxkxxk" 


Exemple : Estimer la superficie d’un lac. 


ii 
sl 


(@) 


AIITIR 


(©@) 


ED/ERERA 


F 


AIRE D’UN FOLYGONE 


NOMBRE DE SOMMETS O= ARRET DU PROGRAMME? 14 

COORDONNEES DU SOMMET 1 7 O,4 
DU SOMMET 1,7 
DU SOMMET 4,8 
DU SOMMET 5,10 
DU SOMMET Pat 
DU SOMMET 9,10 
DU SOMMET 12,9 
DU SOMMET 14,8 
DU SOMMET 13,4 
DU SOMMET ? 15,4 
DU SOMMET ? 15,1 
DU SOMMET ? 13,0 
DU SOMMET ? S,i 
DU SOMMET ? 4,2 

SURFACE = 108 


D0DNTUMBRANE- 


4) +) +0) +7 4) 4) 4) +) 


CR 
A) 


Ce 
b 


NOMBRE DE SOMMETS O= ARRET DU FROGRAMME? Q 


#XXXX FIN DU FROGRAMME XXxxkx 
OK 
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ÉLÉMENTS D’UN TRIANGLE 


Ce programme calcule trois parties inconnues d’un triangle lorsqu’on donne trois parties 
connues. La longueur d’un côté doit constituer au moins une des parties connues. Il y a cinq 
possibilités d’entrer les données : 


1) Angle, côté, angle 
2) Côté, angle, côté 
3) Angle, angle, côté 
4) Côte, côté, angle 
5) Côté, côté, côté 


Les données doivent être entrées dans l’ordre suivant lequel elles apparaissent dans un 
triangle, dans le sens des aiguilles d’une montre ou dans le sens contraire (trigonométrique). 


10 KEY OFF : CLS :COLOR 0,7,0 

20 PRINT "GRANDEURS CARACTERISTIQUES D'UN TRIANGLE" 
30 COLOR 7,0,0 

40 DEFDEL P : DEFINT I,X 

45 FRINT 
46 PRINT " ANGLE, COTE, ANGLE 
COTE, ANGLE, COTE 
ANGLE, ANGLE, COTE 
COTE, COTE, ANGLE 
COTE, COTE, COTE 
ARRET DU FROGRAMME" 


PRINT " 


1 
3 
4. 
s] 
6 


48 FRINT 

90 FRINT 

60 DIM A(Z),S(3) 

70 REM — ENTRER LA VALEUR DE "FI" 

80 F=3.141592686# 

90 REM — EN FONCTION DES GRANDEURS CONNUES INDIQUER LE TYFE 
95 REM —- DE FROBLEME 


110 PRINT "PROBRLEMES FOSSIBLES: 1=ACA, 2=CAC, 3=AAC, 4=CCA, 5=CCC, 
&=FIN 
120 FRINT "ENTRER LE TYFE DE FROBLEME"; 
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130 INFUT X 

135 IF X+6 THEN PRINT "JE NE CONNAIS FAS CE PROBLEME, RECOMMENCEZ! 
“:GOTO 120 

140 REM - ORIENTER LE FROGRAMME VERS DES CALCULS APPROFRIES 
150 ON X GOTO 170,230,2310,350, 440, 650 

160 GOTO 170 

170 PRINT "ENTRER: ANGLE, COTE, ANGLE"; 

180 INPUT A(1),S(3),A(2) 

190 A(3)=P-A(1)-A(2) 

200 S(1)=S(3)XSIN(A(1))/SIN(A(Z)) 

210 S(2)=S (3) XSIN(A(2))/SIN(A(Z)) 

220 GOTO 500 

230 FRINT "ENTRER: COTE, COTE, ANGLE": 

240 INPUT S(3),A(1),S5(2) 

250 S(1)=SQR(S (3) "2+S (2) "2-24 (3) XS (2) XCOS (A(1))) 
260 A(Z)=SIN(A(1))/S(1)xS (2) 

270 IF A(2)=1 THEN A(2)=P/2:GOTO 290 

280 A(Z)=ATN(A(2) /SGR(1-A(2) 2) ) 

290 A(3)=P-A(1)-A(2) 

300 GOTO 500 

210 PRINT "ENTRER: ANGLE, ANGLE, COTE"; 

320 INPUT A(3),A(2),S(3) 

230 A(1)=P-A(2)-A(3) 

340 GOTO 200 

3250 PRINT "ENTRER: COTE, COTE, ANGLE"; 

360 INPUT 5(1),5(2),A(1) 

370 T=S(2) XSIN(A(1)) 

380 IF S(1)<T THEN 610 

290 S(3)=SOR(S(2)“2-T*2) 

400 IF S(1)<=T THEN 430 

410 T=SQR(S(1)"2-T"2) 

420 S(3)=S(3)+Y 

4:30 GOTO 260 

440 PRINT "ENTRER: COTE, COTE, COTE"; 

450 INPUT S(1),5(2),S(2) 

460 A(1)=(S(2)"2+8(3)"2-S(1)"2)/2/S(2)/S(3) 
470 IF A(1)=0 THEN A(1)=F/2:GOT0 490 

480 A(1)=ATN(SQR(1-A(1)"2)/A(1)) 

490 GOTO 260 

500 PRINT 

510 REM — IMPRIMER LES RESULTATS 

S20 DEF FNR(A)=INT (AX10000+.5) /10000 

530 FOR I=1 TO 3 

540 REM - L'ANGLE D'UN TRIANGLE NE FEUT ETRE INFERIEUR A ZERO 
550 IF A(I)<O THEN 610 


960 PRINT " COTE"3;13; "="; FNR(S(I)) 
570 FRINT "ANGLE OFFOSE ="; FNR(A(CI)) 3: "RADIANS" 
980 NEXT I 


990 PRINT 
600 GOTO 120 
610 FRINT 
620 FRINT "FAS DE SOLUTION" 
30 FRINT 
640 GOTO 1270 
650 PRINT : PRINT "KXKXXX FIN DU FROGRAMME #Xxxxx" 


67 


Exemple : 


La base d’un triangle mesure 36 cm. Les angles de base mesurent 0,45 et 2,1 radians. 
Quels sont les autres dimensions du triangle ? 


36 cm 


GRANDEURS CARACTERISTIQUES D'UN TRIANGLE 


ANGLE, COTE, ANGLE (ACA) 
COTE, ANGLE, COTE (CAC) 
ANGLE, ANGLE, COTE (AAC) 
COTE, COTE, ANGLE  (CCA) 
COTE, COTE, COTE (CCC) 
ARRET DU PROGRAMME 


CU bRANMr 


FROBLEMES FOSSIRLES: 1=ACA, 2=CAC, 3=AAC, 4=CCA, 5=CCC, 6=FIN 
ENTRER LE TYFE DE FROBLEME? 1 
ENTRER: ANGLE, COTE, ANGLE? .45,14,2.1 


COTE 1 = 10.9193 

ANGLE OFFOSE -45 RADIANS 
COTE 2 21.6699 

ANGLE OFFOSE 2.1 RADIANS 
COTE 3 14 

ANGLE OFFOSE -3916 RADIANS 


ENTRER LE TYPE DE PROBLEME? 6 


XXXXX FIN DU FROGRAMME Xkkxx 
OH 


OPTION 


Il peut être intéressant d’exprimer les angles en degrés plutôt qu’en radians. Les change- 
ments nécessaires du programme sont donnés ci-après. 
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1 REM - OFTION 84-85, 185, 245, 325, 365, 570 
10 KEY OFF : CLS :COLOR 0,7,0 
20 PRINT "GRANDEURS CARACTERISTIQUES D'UN TRIANGLE" 


80 P=35.141592686# 


84 REM — FACTEUR DE CONVERSION DEGRES/RADIANS 
85 FC=F/180# 


90 REM — EN FONCTION DES GRANDEURS CONNUES INDIQUER LE TYFE 


180 INPUT A(1),.S(3),A(2) 


185 A(1)=A(1)XPFC : ACZ)=A(Z) XPC 


190 A(3S)=P-A(1)-A(2) 


240 INPUT S(3),A(1),S(2) 


245 A(1)=A(1) XPC 
250 


3260 INPUT S(1) 
265 A(1)=A(1) FC 
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580 
9970 
690 
619 
Z20 
630 
640 
650 
Ok 


S(1)=SOR(S(3)"2+S(2)"2-2XS (3) XS (2) XCOS(A(1))) 


INPUT A(3),A(2),S(3) 
A(S)=A(S)XPC : A(Z)=A(Z) XPC 
A(1)=F-A(2)-A(3) 


S(2) ,A(1) 


T=S(2)XSIN(A(1)) 


PRINT _" COTE "3;1:;"=";FNR(S(1I)) 
FRINT "ANGLE OFFOSE ="; FNK(ACI)/FC); "DEGRES" 
NEXT I 

PRINT 

GOTO 120 

FRINT 

FRINT "FAS DE SOLUTION" 

FRINT 

GOTO 120 

PRINT 3 FRINT "XKKXxx FIN DU FROGRAMME X#kxxx" 


Exemples : 


Un carré mesure 22,25 x 22,25 centimètres. Quelle est la longueur de sa diagonale ? 


L’échelle d’un toboggan mesure 2,5 mètres ; le toboggan mesure 3,6 mètres et couvre 3,3 
mètres de terrain de la base de l’échelle au bout du toboggan. Quelle est l’inclinaison du 


toboggan ? 
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22,25 cm 


Figure 1 


Figure 2 


GRANDEURS CARACTERISTIQUES D'UN TRIANGLE 


ANGLE, COTE, ANGLE (ACA) 
COTE, ANGLE, COTE (CAC) 
ANGLE, ANGLE, COTE (AAC)" 
COTE, COTE, ANGLE  (CCA) 
COTE, COTE, COTE (ECC) 
ARRET DU FROGRAMME" 


FROBLEMES FOSSIBLES: 1=ACA, 2=CAC, 3=AAC, 4=CCA, 5=CCC, 6=FIN 
ENTRER LE TYFE DE PROBLEME? 2 
ENTRER: COTE, COTE, ANGLE? 22.25,90,22.25S 


COTE 1 
ANGLE OFFOSE 

COTE 2% 
ANGLE OFFOSE 

COTE 3 22.25 
ANGLE OFFOSE 435 DEGRES 


31.466863 
90 DEGRES 


22.25 ler exemple 
45 DEGRES 


ENTRER LE TYPE DE FRORLEME?F 5 
ENTRER: COTE, COTE, COTE? 2.5,3.5,5.6 


COTE 1 2.95 
ANGLE OFFOSE 42.2054 DEGRES 
COTE 2 ZT. SE 
ANGLE OFFOSE 62.4694 DEGRES : 
COTE = 7.6 2ème exemple 


S 


ANGLE OFFOSE = 75.:251 DEGRES Figure 2 


ENTRER LE TYPE DE PFROBLEME?F 6 


XXXXX FIN DU FROGRAMME XXXkXx% 
OK 
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ANALYSE DE DEUX VECTEURS 


Ce programme calcule l’angle entre deux vecteurs donnés, les angles entre chaque vec- 
teur et les axes de coordonnées et le module de chaque vecteur. Les vecteurs sont considérés 
dans un espace à trois dimensions. 


KEY OFF : CLS :COLOR 0,7.0 
FRINT "ANALYSE DE DEUX’ VÉCTEURS" 
COLOR 7,0,0 

DEFDBL A-Z : DEFINT I,K 
PRINT 
REM - DE 70 À 100 UNE ENTREE EST NECESSAIRE 
PRINT "VECTEUR 1 : X,Y,2Z"; 

INFUT X(1),Y(1),2Z(1) 
PRINT "VECTEUR 2 : X,Y,Z": 

INPUT X(2),Y(2),Z(2) 

FRINT 

REM - BOUCLE POUR ANALYSER LES DEUX VECTEURS 
FOR I=1 TO 2 

REM — CALCUL DU MODULE, IMPRIMER 
MCI)=SOR(X CI) XX CID +Y CI) XY CID+Z CI) KZ CID) 

REM - LE MODULE EST-IL UN FOINT? SI OUI LE 
REM - CALCUL DE L'ANGLE EST IMPOSSIBLE 

IF M(I)=0 THEN 320 

PRINT "VECTEUR";1I;":" 

FRINT SPC(12) "MODULE: ":;CSNG(M(I)) 

REM - FACTEUR DE CONVERSION RADIANS A DEGRES 
S=57.29577892199# 

REM - CALCUL DE L'ANGLE ENTRE VECTEUR ET AXES, IMPRIMER 
A(1)=X(1) 

A(2)=Y(1) 

A(3)=Z(1) 


FOR K=1 TO 3 


J=A(K) /M(I) 

GOSUR 480 

FRINT "ANGLE AVEC L'AXE "CHR$(87+K) "3: "3 CSNG (J) ; "DEGRES" 
NEXT EH 

PRINT 

NEXT I 

REM — SI LE VECTEUR EST UN FOINT, IMFOSSIBLE 

REM — DE CALCULER UN ANGLE 

IF M(1)=0 OR M(2)=0 THEN J=0 GOTO 380 

REM — CALCUL DE L'ANGLE ENTRE VECTEURS, IMPRESSION 
J=(X(1)KX(2)+Y(1)KXY(Z)+Z(1)KXZ(2))/M(1)/M(2) 

GOSUE 480 

PRINT "ANGLE ENTRE VECTEURS : "3; CSNG (J) ; "DEGRES" 

PRINT 

REM —- RELANCE OÙ ARRET DU PROGRAMME 

FRINT "AUTRES DONNEES (1=OUI, O=NON) "; 

INFUT 79 

PRINT 

IF 29=1 THEN 70 

GOTO 520 

REM — SOUS -FROGRAMME : VALEUR DE J EN DEGRES À FARTIR DE 
REM — ARCCOS J 

REM — LES VECTEURS SONT-ILS FERFENDICULAIRES, OFPFOSES, 


475 REM —- DANS LA MEME DIRECTION ? 

480 JI1=INT(JKX1000000!+.5)/1000000! 

490 IF J1=SGN(J1) THEN J=90k(1-J1): GOTO S10 
500 J=ATN(SOR(1-J"2) /J) XS-(J<0) 180 

510 RETURN 


9320 PRINT "XXKXXXX FIN DU FROGRAMME KXkXXxX" 


Exemples : 
Trouver l’angle (0) ertre la diagonale d’un cube et la diagonale d’une de ses faces. Le 
cube mesure 4 x 4x 4. 


(0,4,4) (4,4,4) 


(4,0,4) 


ANALYSE DE DEUX VECTEURS 


VECTEUR 
VECTEUR 


VECTEUR 1 : 


ANGLE AVEC L'AXE X: 90 DEGRES 
ANGLE AVEC L'AXE Y: 45.000001 DEGRES 
ANGLE AVEC L'AXE Z: 45.000001 DEGRES 


VECTEUR 2 : 

MODULE: 6.928204 
ANGLE AVEC L'’AXE X: 54.723562 DEGRES 
ANGLE AVEC L'AXE Y: 54.752562 DEGRES 
ANGLE AVEC L'AXE Z: 54.732562 DEGRES 


ANGLE ENTRE VECTEURS : 3S5.2644 DEGRES 


AUTRES DONNEES (1=OUI, O=NON)? © 


XXXXXX FIN DU FROGRAMME XKkXK#X 


72 


25 


CALCULS SUR DEUX VECTEURS 


Ce programme effectue quatre opérations sur deux vecteurs donnés dans un espace à 
trois dimensions. Ces opérations sont : 


1) Addition 

2) Soustraction 

3) Produit scalaire 
4) Produit vectoriel 


10 KEY : CLS : COLOR 0, 
20 ÉRINT V CALCUL SUR DEUX” GÉCTEURS" 


30 COLOR 7,0,0 

40 DEFDEL A-Z 

SO PRINT 

60 FRINT "COORDONNEES DU VECTEUR A 

70 INFUT  X1,Y1,2Z1 

80 FRINT "COORDONNEES DU VECTEUR B : 

90 INFUT X2,Y2,22 

100 FRINT 

110 REM - ADDITIONNER LES VECTEURS, IMPRIMER LES RESULTATS 
120 PRINT "A+B="; X1+X25", "5 VI+YRi "21472 

130 REM - SOUSTRACTION DES VECTEURS, IMPRIMER LES RESULTATS 
140 FRINT "A-B=":X1-X25;" "ss VIi-Y2s" "571-272 

150 REM - FRODUIT SCALAIRE, IMPRIMER LES RESULTATS 

160 PRINT "A.B="3; XLKXD+Y1XY2+Z1XK22 

170 REM - FRODUIT VECTORIEL, IMPRIMER LES RESULTATS 

180 PRINT "AKB="; YIKZD-ZLKYD SE" Ms ZIKXD-XIKZDI "ME XLKYZ-YLKX2 
190 FRINT 

200 REM -— RELANCE OÙ ARRET DU FROGRAMME? 

210 FRINT "AUTRES DONNEES (1=QOUI, O=NON) "; 

220 INFUT X 

230 IF X=1 THEN 50 

240 FRINT:PRINT "XXkkX FIN DU PROGRAMME *X*xkk*x" 


Exemple : 
On trace des vecteurs de l’origine vers deux points A (5, — 1, 2) et B (1, 4, 9). Addition- 
ner, soustraire, faire le produit scalaire et le produit vectoriel de ces deux vecteurs. 


CALCUL SUR DEUX VECTEURS 


COORDONNEES DU VECTEUR A 
COORDONNEES DU VECTEUR KE 


AXB=-17 ,-43 , 21 


AUTRES DONNEES (1=OUI,O=NON)? O 


KXXXX FIN DU FROGRAMME XXkkkk 
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CONVERSION D’ANGLES 
RADIANS EN DEGRES 


Ce programme convertit un angle donné en radians en degrés, minutes et secondes. 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "CONVERSION DES RADIANS EN DEGRES" 
COLOR 7,0,0 
DEFDEL A-Z 
FRINT 
PRINT "VALEUR EN RADIANS (ENTRER O POUR ARRETER LE PROGRAMME) "; 
GOTO 90 
FRINT "VALEUR EN RADIANS": 
INFUT R 
REM - TEST DE FIN DE FROGRAMME 
IF R=O THEN 280 
REM - CONVERTIR LES RADIANS EN SECONDES 
A=3600k180%R/3. 1415926B6# 
REM - CALCUL DU NOMBRE DE DEGRES 
D=INT (A/3600) 


REM — NOMBRE DE REVOLUTIONS COMFLETES 
REM —- COMME FACTEURS FREMIERS 
DIi=INT(D/360) 


3 FRINT "NOMBRE DE KREVOLUTIONS COMPLETES ="3;D1 
REM — CALCUL DES DEGRES *# 360 DEGRES, IMPRIMER 
FRINT USING ‘ DEGRES ###"3: D-5S6OXD1 
REM — CALCUL DES MINUTES, IMFRIMER 
PRINT USING " MINUTES = ##"3INT((A-DX3600) /60) 
REM — CALCUL DES SECONDES, IMFRIMER 
S=A-DX3600-INT((A-DX3600) /60) k60Q 
FRINT USING " SECONDES ##.#4#"355S 
FRINT 
REM — RELANCE DU FROGRAMME 
GOTO 80 
PRINT : PRINT "XXXX*x FIN DU FROGRAMME Xkxxx" 
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Exemples : 


Combien de degrés, minutes et secondes fait un angle de 2,5 radians ? Et un angle de 118 
radians ? 


CONVERSION DES RADIANS EN DEGRES 


VALEUR EN RADIANS (ENTRER © POUR ARRETER LE FROGRAMNME)? 2.5 
NOMERE DE REVOLUTIONS COMFLETES = © 
DEGRES 14 
MINUTES 14 
SECONDES = 2%.01 


VALEUR EN RADIANS? 118 
NOMBRE DE REVOLUTIONS COMFLETES = 
DEGRES 
MINUTES 
SECONDES = 


VALEUR EN RADIANS? © 


X#XXX FIN DU FROGRAMME XXXXX 


OPTION 


On peut préférer avoir le résultat en degrés et décimales plutôt qu’en degrés, minutes et 
secondes. Les changements nécessaires du programme sont donnés ci-dessous. 


1 REM — OFTION 190, DELETE 200-240 


10 
20 
50 
40 
50 
69 
70 
80 


175 
180 


ÉEY OFF : CLS :COLOR 0,7,0 

FRINT “CONVERSION DES RADIANS EN DEGRES" 

COLOR 7,0,0 

DEFDEL A-Z 

FRINT 

FRINT "VALEUR EN RADIANS (ENTRER © FOUR ARRETER LE FROGRAMME) “: 
GOTO 90 

FRINT "VALEUR EN RADIANS": 


FRINT "NOMBRE DE REVOLUTIONS COMFLETES ="3D1 
REM — CALCUL DES DEGRES « 260 DEGRES, IMPRIMER 


190 


250 


269 
270 
280 


FRINT USING " DEGRES = ##4. H#HH°:0/3600-F60XDi 


Ne pas oublier 
de supprimer les 
lignes 200 à 240 


FRINT 

REM — RELANCE DU FROGRAMME 

GOTO 80 

FRINT 3: PRINT "XXXXX FIN DU FROGRAMME XX#XxxX" 


75 


Exemple : 
Combien de degrés y a-t-il dans un angle de 2,5 radians ? 


CONVERSION DES KRADIANS EN DEGRES 


VALEUR EN RADIANS (ENTRER © FOUR ARRETER LE FROGRAMME)? 2.5 
NOMBRE DE REVOLUTIONS COMFLETES = 
DEGRES = 


Q 
143.23594 


VALEUR EN RADIANS?F 0Q 


XXXXX FIN DU PROGRAMME XXXXX 
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CONVERSION D’ANGLES : 
DEGRES EN RADIANS 


Ce programme convertit un angle donné en degrés, minutes et secondes en radians. 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "CONVERSION DES DEGRES EN RADIANS" 
COLOR 7,0,0 
DEFDEL A-Z 
FRINT 
FRINT "(ENTRER 0,0,0 FOUR ARRETER LE FROGRAMME) “ 
FRINT "ANGLE EN DEGRES, MINUTES, SECONDES"; 
INFUT D,M,S 
REM — TEST DE FIN DE FROGRAMME 
IF D=0 AND M=0 AND S=0 THEN 710 
REM — CONVERSION DES DEGRES, MINUTES, SECONDES EN DEGRES 
A=D+M/60+5/3600 
REM — CALCUL DU NOMBRE DE REVOLUTIONS COMFLETES 
C=INT (A/360) 
FRINT "NOMBRE DE REVOLUTIONS COMPLETES ="3:C 
REM — CALCUL DE L'ANGLE INFERIEUR À 360 DEGRES, IMPRIMER 
R=A*X.017452:2927#4-Ck6.7831853# 
FRINT USING " ANGLE EN RADIANS = #0 ##HH4##t#ftts R 
PRINT 
REM — RELANCE DU FROGRAMME 
GOTO 70 
PRINT : PRINT "XXXXX FIN DU FROGRAMME KKKKkX" 


Exemples : 
Un angle mesure 30 degrés, 5 minutes et 3 secondes. Quelle serait la mesure de cet angle 
en radians ? 


Quelle serait la mesure en radians de deux angles mesurant respectivement 278°, 19°, 54’? 
et 721°, 0”, 0” ? 


CONVERSION DES DEGRES EN RADIANS 


(ENTRER 0,0,0 FOUR ARRETER LE FROGRAMME) 
ANGLE EN DEGRES, MINUTES, SECONDES? 30,5,3 
NOMBRE DE REVOLUTIONS COMFLETES = © 
ANGLE EN RADIANS = 0.52506777 
A  ————  —— — ©©———— 
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ANGLE EN DEGRES, MINUTES, SECONDES? 278,19,54 
NOMBRE DE REVOLUTIONS COMFLETES = © 
ANGLE EN RADIANS = 4.85780405 


ANGLE EN DEGRES, MINUTES, SECONDES? 721,0,0 


NOMBRE DE REVOLUTIONS COMFLETES = 2 
ANGLE EN RADIANS = 0.91745:544 


ANGLE EN DEGRES, MINUTES, SECONDES? 0,0,0 


XXXXX FIN DU FROGRAMME XXXx xx 


OPTION 

11 peut être intéressant d’entrer l’angle en degrés et décimales de degrés plutôt qu’en 
degrés, minutes et secondes. Les modifications nécessaires du programme sont données 
ci-dessous. 


1 REM -— OFTION 60-100, DELETE 110-1270 
10 KEY OFF : CLS :COLOR 0,7,0 
20 FRINT "CONVERSION DES DEGRES EN RADIANS" 
0 COLOR 7,0,0 Ne pas oublier 
40 DEFDRL A-Z de supprimer les 
30 _FRINT lignes 110 et 120 
60 FRINT "(ENTRER © POUR ARRETER LE FROGRAMME) " 
70 FRINT "ANGLE EN DEGRES"s 
89 INFUT A 
9Q RKEM - TEST DE FIN DE FROGRAMME 
100 IF A=O THEN 210 
REM — CALCUL DU NOMERRE DE REVOLUTIONS COMFLETES 
C=INT(A/:5:60) 
PRINT "NOMBRE DE REVOLUTIONS COMFLETES ="3;C 
REM — CALCUL DE L'ANGLE INFERIEUR À 36OQ DEGRES, IMFRIMER 
R=&AX.0174532927#H#-CXké6.28751853# 
FRINT USING " ANGLE EN RADIANS = H.HHHHHHHHU SR 
FRINT 
REM — RELANCE DU FROGRAMME 
GOTO 70 
FRINT 3 FRINT "XKXXXX FIN DU FROGRAMME Xxxkxx" 


Exemple : 
Combien de radians y a-t-il dans un angle de 33.08° ? 90° ? 


CONVERSION DES DEGRES EN RADIANS 


(ENTRER O FOUR ARRETER LE FROGRAMME) 
ANGLE EN DEGRES?F 35.08 
NOMBRE DE REVOLUTIONS COMFLETES = © 
ANGLE EN RADIANS = 0,.5772:5492 


ANGLE EN DEGRES? 90 
NOMERRE DE REVOLUTIONS COMFLETES [e) 
ANGLE EN RADIANS 1.570796354 


ANGLE EN DEGRESTF 0 


XXXXX FIN DU FROGRAMME XXXXX 
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CONVERSION DE COORDONNÉES 


Ce programme convertit un point donné en coordonnées cartésiennes en coordonnées 
polaires et vice-versa. 


Les formules de conversion sont : 


r = Vx2 + y? 
A = arctangente (y/x) 
X = r.cosinus (A) 
y = r.sinus (A) 
avec: x = abscisse } ; ns 
| en coordonnées cartésiennes 
y = ordonnée 
r = module 
A 


; en coordonnées polaires 
= argument (en degrés) 


ÉEY OFF : CLS :COLOR 0,7,0 
FRINT "CONVERSION DE COORDONNEES" 
COLOR 7,0,0 
DEFDEL A-Z 
DEF FNR(X)=INT(XK100+.5)/100 
F1=5.141592686# 
FRINT 
FRINT ‘ Ç 1 CARTESIENNES EN FOLAIRES) " 
FRINT " (—1 FOLAIRES EN CARTESIENNES) " 
FRINT (Q ARRET DU FROGRAMME) " 
PRINT "QUELLE CONVERSION"";: 

INFUT D 

REM — ARRET DU FROGRAMME 

IF D=O THEN 410 

REM — CHOIX DU FROGRAMME 

IF D=-1 THEN 330 

REM — CONVERSION DES COORDONNEES CARTESIENNES EN FOLAIRES 
REM — ENTRER LES COORDONNEES CARTESIENNES 
FRINT "X, Y'": 

INFUT X,Y 

REM — FOINT SUR LES AXES 7 

IF X=0 OR Y=0 THEN 280 

REM — CALCUL DES COORDONNEES FOLAIRES, 

REM — ARRONDIR, IMPRIMER 

FRINT "R =": FNR(SOR(XKX+YA#Y)DE M", 

PRINT "A =", FNR(180X (ATN(Y/X)/FI—-(X#0))) 

GOTO 110 

REM — CALCUL ANGLE FOUR FOINT SUR AXE 

FRINT "KR ="3:ARS(X+Y)3",", 

PRINT "A ="3 -9GOX((Y>O) +2X (X20) +3X (Y£LO)) 

GOTO 110 

REM — CONVERSION DE "FOLAIRES" A "CARTESIENNES" 
REM -— ENTRER LES COORDONNEES FOLAIRES 


PRINT "R, A"; 

INPUT R,A 

REM — CONVERSION DES DEGRES EN RADIANS 

M= (A-INT (A/360) X360) XF1/180 

REM - CALCUL DES COORDONNEES CARTESIENNES, 


REM — ARRONDIR, IMPRIMER 
PRINT "X ="; FNR(RXCOS (M): ",", 
PRINT "Y ='"3FNR(RXSIN (M) ) 

GOTO 110 


PRINT : PRINT "#KXkkx FIN DU PROGRAMME Xkkkkx" 


Exemples : 


Trouver les coordonnées cartésiennes du point (2, 30.5°) donné en coordonnées polaires. 
res. 


Un point est placé à (0, — 46.8). Quelle est sa place en coordonnées polaires ? 


CONVERSION DE COORDONNEES 


( 1 = CARTESIENNES EN FOLAIRES) 
(-1 = FOLAIRES EN CARTESIENNES) 
(O = ARRET DU FROGRAMME) 
QUELLE CONVERSION?T -1 
R, A? 2,30.5 
15722 Y = 1.02 
QUELLE CONVERSION? 1 
Y? 7,18 
IRL. A = 68.75 
QUELLE CONVERSION? 1 
X, Y? 0,-46.8 
R = 46.8, A = 270 
QUELLE CONVERSION?T O 


XXKXXX FIN DU FROGRAMME XKKkkXkX 
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TRACÉ DE COURBES 


Ce programme trace des points sur un ensemble d’axes de coordonnées. On doit indi- 
quer les coordonnées x et y de tous les points à tracer, les points d’extrémités sur les axes des 
x et y et l’incrément entre points sur chacun des axes. 


Le graphique est non conventionnel en ceci que l’axe des x est vertical et l’axe des y hori- 
zontal. De plus, les axes ne se coupent pas forcément en 0,0. Un rappel des coordonnées du 
point d’intersection des axes est imprimé en haut de chaque graphique. 


Ce programme est prévu pour une sortie sur imprimante 80 colonnes. Cependant vous 
pouvez le modifier pour obtenir le résultat sur l’écran en changeant tous les LPRINT par des 
PRINT aux lignes 550, 560, 1470, 1490, 1520, 1550, 1570, et 1590. II vous faudra aussi 
supprimer les lignes 510 et 530. 


ÉEY OFF : CLS :COLOR 0,7,0 
FRINT "TRACE DE COURBES" 
COLOR 7,0,0Q 

FRINT 


REM - ENTRER LES INDICATIONS FOUR FOSITIONNER LES AXES 
PRINT "AXE DES X : EXTREMITE GAUCHE, DROITE, INCREMENT"; 
INFUT A1,A2,A3 

FRINT "AXE DES YŸ : EXTREMITE INFERIEURE, SUFERIEURE, INC“: 
INFUT B1,B2,B3 


B2=(R2-H1)/KR3 

REM - AXE DES X TROF GRAND FOUR L'UNITE DE SORTIE ? 
REM — SI OUI, CHANGER LES VALEURS DES EXTREMITES 
REM — OÙ AUGMENTER L’?INCREMENT 

IF EH2<=78 THEN 160 

PRINT CHR$(7)"FLAGE DE Y TROF GRANDE" 

GOTO 80 

PRINT "NOMBRES DE FOINT À TRACER": 

INFUT N 
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REM — FAS DE FOINT A TRACER 7 ARRETER LE FROGRAMME 
IF N=O THEN 1530 

REM — DIMENSION DE X() ET Y() 

DIM X(N+1), Y(N+1) 

REM — BOUCLE FOUR INTRODUIRE X ET Y A CHAQUE FOINT 
FOR I=1 TO N 

IF 11 THEN 270 

FRINT "COORDONNEES DU FOINT":1I: 

GOTO 780 

FRINT " FOINT":I: 

INPUT X(I), Y(I) 

REM — ARRONDIR CHAQUE X ,Y A L°INCREMENT LE 

REM - FLUS FROCHE DE L'AXE 

XCI)=INTE(X(I)-A1) /A%+.5) 

YCID)=INT((Y(I)-H1) /H3+.5) 

NEXT I 

REM — CALCUL DES COORDONNEES X ET Y ADDITIONNELLES 
Y (N+L)=INT (RP+.5) +1 

X (N+1)=INT ((AB-A1) /A3+.5)+1 

FRINT 

REM — TRIER LES COORDONNEES: REORDONNER X(1) A X(N), 
REM - LE FLUS FETIT EN FREMIER 

FOR J=i TO N 

FOR I=1i TO N-J 

A=X (I) 

B=Y (I) 

C=X(1+1) 

D=Y (I+1) 

IF ASC THEN 490 

X(1)=C 


Y(I1)=D 


X(I+1)=A 

Y(I+1)=HR 

NEXT I 

NEXT J 

REM — L'IMFRIMANTE EST-ELLE FRETE? 

FRINT "MISE EN MARCHE DE L'IMPRIMANTE, AFFUYER SUR LA BARRE 
ESFACE" 

IF INFEYS#£5:" " THEN 550 

REM_ -— NOTER LE FOINT D'INTERSECTION DES AXES 

LFRINT "INTERSECTION DES AXES À ("+STR$(A1)+","+STRS (H1)+")" 
LFRINT 

REM — LE FOINT SUIVANT À TRACER EST STOCKE DANS T 

T=i 

REM -— SAUTER LES FOINTS HORS DE LA FLAGE FOSITIVE DES X 
FOR F=0 TO N-1 

IF X(F+1):5%=0 THEN 640 

NEXT F 

REM — EOUCLER FOUR AFFELER CHAQUE INCREMENT DE X 

REM — FOUR LES LIGNES D°IMFRESSION 

FOR I=0 TO INT((AZ-A1) /A3+.5) 

TET+F 

REM — COMPTER LE NOMBRE DE FOINTS A TRACER 

REM — SUR CHAQUE LIGNE DANS F 

F=0Q 

REM — TOUS LES FOINTS SONT-ILS A TRACER? 

IF TN THEN 7230 

REM — VALEUR DE X SUR LA LIGNE DES X? SI OUI, 

REM — TESTER FOUR Y 

IF X(T)=I THEN 790 

REM — FREMIERE LIGNE? SI QUI, L’'AXE DES Y DOIT ETRE TRACE 
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730 IF 1=0 THEN 770 

740 REM -— TRACER L'AXE DES X 

750 GOSUR 1550 

769 GOTO 1490 

770 S=N+i 

780 GOTO 1510 

790 FOR L=T TON 

800 REM — FOINT SUIVANT TRACE SUR LA MEME LIGNE? 
810 IF X(L):X(T) THEN 860 

820 REM -— COMFTER LES FOINTS A TRACER SUR CHAQUE LIGNE? 
50 P=PF+1 

840 NEXT L 

850 REM —- TRACER UN FOINT 

860 IF F=i THEN 1000 

870 REM — KHOUCLER FOUR TRIER LES COORDONNEES DE Y 

680 REM — AVEC LES COORDONNEES EGALES DE X 

885 REM —- REORDONNER DE LA FLUS FETITE A LA FLUS GRANDE 

890 FOR J=i TO F 

900 L=0 

910 L=L+i 

920 IF LiF-J THEN 990 

950 D=Y(T+L-1) 

940 R=Y(T+L) 

950 IF D{=kH THEN 980 

960 Y(T+L-1)=H 

970 Y(T+L)=D 

980 GOTO 910 

990 NEXT J 

1000 FOR L=O TO F-1 

1010 Z=Y(T+L) 

1020 REM — TEST DE DEFASSEMENT DE LA FLAGE DE Y 
1030 IF Z>=0 THEN 1060 

1040 NEXT L 

1050 REM -— POINT À TRACER SUR L'AXE DES X7? 

1060 IF I=0 THEN 1290 

1070 REM - FOINT À TRACER SUR L'AXE DES Y? 

1080 IF Z=0 THEN 1110 

1090 REM -— TRACER L'AXE DES X 

1100 GOSUR 1550 

1110 IF L=F-1 THEN 1250 

1120 FOR J=L TO F-1 

1130 REM — TESTER LES COORDONNEES Y HORS DE LA PLAGE 
1140 IF ZÿB?2 THEN 1490 

1150 REM — PASSER OUTRE LES COORDONNEES DUFLIQUEES 
1160 IF Y(T+J)=Z THEN 1210 

1170 REM — TRACER LE FOINT 

1180 GOSUR 1570 

1190 GOSUR 1590 

1200 Z=Y(T+J) 

1210 NEXT J 

1220 REM -— TESTER LES COORDONNEES HORS DE LA FLAGE DES Y 
1230 IF Z<O THEN 1490 

1240 IF Z:BR2 THEN 1490 

1250 REM -— TRACER LE FOINT 

1260 GOSUR 1570 

1270 GOSUR 1590 

1280 GOTOQ 1490 

1290 S=T+L 

1:00 REM - BOUCLE FOUR ETABLIR L’IMPRESSION DE LA PREMIERE LIGNE 
1310 FOR J=0 TO EH? 
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1320 REM - POINT À TRACER? 
3230 IF Y(S)<>]J THEN 1440 
1340 REM - TRACER LE FOINT 
1350 GOSUR 1590 
1360 REM - FASSER OUTRE LES COORDONNEES DUFLIQUEES 
1370 FOR K=S TO T+F-1 
1380 IF Y(KH)=Y(S) THEN 1410 
1390 S=K 
1400 GOTO 1450 
1410 NEXT 
1420 GOTO 1450 
1420 REM - TRACER L'AXE DES Y 
1440 GOSUR 1550 
1450 NEXT J 
1460 REM — IDENTIFIER L'AXE DES Y 
(1470 LPRINT "y"; | 
1480 REM — AVANCER L'UNITE DE SORTIE SUR LA LIGNE SUIVANTE 
1490 LPRINT 
1500 NEXT I 
1510 REM — IDENTIFIER L'AXE DES X 
1520 LPRINT "X" 
1530 GOTO 1610 
1540 REM - SOUS-FROGRAMME IMPRIMANTE 
(1550 LPFRINT "x":] 
1560 RETURN 
1580 RETURN 
1590 LFRINT "+"; 
1600 RETURN 
1610 PRINT : PRINT "X#XXHX FIN DU PROGRAMME XX4kx" 


Exemple : 


Les tailles de douze hommes et de leur fils sont portées sur le tableau ci-dessous. Tracer 
les points correspondants. 


père 
fils 


tailles en centimètres 


TRACE DE COURRES 


AXE DES X EXTREMITE GAUCHE, DROITE, INCREMENT? 155,190,1.25 


AXE DES Y : EXTREMITE INFERIEURE, SUFERIEURE, INC? 155,190,.6 
NOMERES DE POINT A TRACER? 12 


COORDONNEES DU FOINT ? 165,173 
FOINT ? 160,168 
POINT 3 7 170,173 
POINT ? 163,165 
FOINT ? 173.175 
POINT ? 157.168 
FOINT ? 178,173 
POINT ? 168,165 
POINT 9 7? 173,180 
POINT ? 170.170 
POINT ? 175,173 
FOINT 12 7 180,178 


MISE EN MARCHE DE L'°IMPRIMANTE, AFPUYER SUR LA BARRE ESPACE 
INTERSECTION DES AXES A ( 155, 1535) 


MOKONONONONONONONOK NOMME NON HONOMONONOMONKOKOK MON KONMOKOKHOKOKOHONOK AONOKOK HOKAONOKKON ON AOOKK AY 


+ 


+ 


* 
* 
X 
* 
X 
* 
X 
X 
* 
*X 
x 
x 
* 
x 
* 
x 
X 
* 
* 
x 
x 
* 
* 
* 
* 
* 
* 
* 
x 


XXXXX FIN DU PROGRAMME XXXXxX 
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TRACÉ DE COURBES 
EN COORDONNÉES POLAIRES 


Ce programme trace la courbe d’une fonction donnée en coordonnées polaires et il est 
prévu pour une sortie sur imprimante de 80 colonnes. Il peut être modifié pour obtenir le 
tracé sur l’écran en changeant les LPRINT par des PRINT. Vous les trouverez aux lignes 
210, 230, 240, 250, 590, 900, 950, 990, 1060, 1140, 1170, 1180 et 1210. Il faut également 
supprimer les Hgnes 180 à 200. 


Le graphique est conventionnel en ceci que l’axe des x est horizontal, l’axe des y vertical et 
ces deux axes se coupent à l’origine zéro. On doit indiquer uniquement la valeur absolue des 
extrémités de ces axes. 


L’incrément entre les points sur les axes x et des y est ainsi ajusté que la valeur de un sur 
chaque axe soit équidistante de zéro. Ceci permet le tracé de la fonction avec une distorsion 
minimale. Un ajustement des incréments s’avère nécessaire à cause des espacements 
horizontaux et verticaux différents sur l’unité de sortie. (Ce programme suppose qu’il y a dix 
espaces par pouce horizontalement et six espaces par pouce verticalement. Si les 
caractéristiques de l’unité de sortie sont différentes de celles-ci, le graphique pourrait être 


déformé). 


Il faut introduire la fonction à tracer avant d'exécuter le programme. On doit l’introduire 
en tant que f(d) ; f(d) sera entrée et posée en égal à F à la ligne 290. Par exemple, la fonction 
f(d) — 2 x(1-cos(d)) sera entrée ainsi : 


290 F=2*x(1-COS(D)) 


KEY OFF : CLS :COLOR O, 
FRINT "TRACE DE COURBES EN COORDONNEES FOLAIRES" 


COLOR 7,0,0 
FRINT 
DEFINT A-Y : DEFDEL D,F 
REM — TARLEAUX DE COORDONNES FREVUS FOUR 90 FOINTS 
REM — UNE COORDONNEE X SUFFLEMENTAIRE EST CALCULEE 
REM — N= NOMBRES DE FOINTS A CALCULER 
SO N=90 
100 DIM X(N+1), Y(N) 
110 REM — SORTIE SUR 70 COLONNES, 10 FAR FOUCE (DOIT ETRE 
480 ET FAIRE) 
120 REM —- IMPRESSION 6 LIGNES FAR FOUCE (AXES EGAUX) 
1310 W=70/2:H=42/2 
140 REM -— LES VALEURS ARSOLUES DES EXTREMITES SONT EGALES 
150 PRINT "VALEUR ABSOLUE DES EXTREMITES"; 
160 INFUT 7Z 
170 PRINT 
180 REM - L'IMFRIMANTE EST-ELLE FRETE ? 
190 FRINT "MISE EN MARCHE DE L’IMFRIMANTE FUIS AFFUYER SUR 
LA BARRE ESFACE" 
200 IF INÉHEY$S<5" " THEN 200 
210 LFRINT "VALEUR ABSOLUE DES EXTREMITES =";:7; 
220 REM —- CALCUL DES INCREMENTS DES AXES SELON LE NOMBRE 
225 REM - DE CARACTERES FAR AXE 
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LFRINT TAB(41) "INCKREMENT SUR X'":2Z/W 
LFRINT TAR(41) "INCREMENT SUR Y'":2Z/H 
LFRINT 
FOR I1=1 TON 
REM — CONVERSION DEGRES EN RADIANS 
D=6.981317E-OZ2XI 
=2*x(1-CO0S(D)) 
REM — CALCUL DE CHAQUE COORDONNEE CARTESIENNE 
REM — ARRONDIR À L'INCREMENT LE FLUS FRES SUR L'AXE 
X(I)=INT((C(FXCOS (D) /2+1)xW)+.5) 
YCI)=INT((C(-FXSIN(D)/2Z+1) XH)+.5) 
NEXT I 
REM — CLASSER FAR ORDRE CROISSANT LES COORDONNEES 
FOR J=1i TON 
FOR I=1 TO N-J 
IF Y(I)>:Y(I+1) THEN SWAF X(I),X(I+1): SWAF Y(I), Y(I+1) 
NEXT I 
NEXT J 
REM -— LE FOINT SUIVANT EST MEMORISE EN T 
T=i 
REM -— SAUTER LES FOINTS D'ORDONNEE NEGATIVE 
FOR F=0 TO N-i 
IF Y(F+1):=0 THEN 480 
NEXT F 
REM — HROUCLE FOUR INCREMENTER SELON Y (LIGNES D°IMPRESSION) 
FOR I=0 TO HX? 
T=T+P 
REM —- EN F, NE DE FOINTS A TRACER SUR UNE MEME LIGNE 
F=0 
REM -— TOUS LES FOINTS SONT-ILS A TRACER? 
IF T>N THEN 570 


REM — VALEUR DE Y SUR UNE LIGNE Y 
IF Y(T)=I THEN 6:30 

REM — IMPRESSION DE L'AXE DES *X 7? 
IF I=H THEN 610 


REM - IMFRESSION DE L’'AXE DES Y ? 

LFRINT TAR(W+1)35"x": 

GOTO 1180 

S=N+1 

GOTO 1050 

FOR L=T TO N 

REM — FROCHAIN FOINT A TRACER SUR CETTE LIGNE ? 
IF Y(L):Y(T) THEN 670 

F=F+1 

NEXT L 

IF F=i THEN 770 

REM -— EHOUCLE FOUR CLASSER LES COORDONNEES X CORRESFONDANT 
REM — A LA MEME COORDONNEE Y, FAR ORDRE CROISSANT 
REM — REORDONNER FAR ORDRE CROISSANT 

FOR J=i TO F 

FOR L=i TO F-J 

IF X(T+L-1)5:XCT+L) THEN SWAF X(T+L-1),X(T+L) 

NEXT L 

NEYT J 

REM -— IMFRESSION DE L'AXE DES X 7? 

IF I=H THEN 1010 

L=-1 

S=0 

FOR K=O TO F-1 

REM — FLUS D'UN POINT AU MEME ENDROIT SUR LE GRAFHE® 
IF X(T+H)=L THEN 960 


L=X (T+K) 
REM - TRACER UN POINT SUR L'AXE DES Y? 
IF L=W THEN 910 
REM - TRACER UN POINT A GAUCHE DE L’AXE DES Y? 
IF L£W THEN 930 
IF S=1 THEN 930 
REM — IMPRIMER L'AXE DES Y 
LFRINT TABCW+1)3:"k"; 
S=1 
REM — DEFASSEMENT SELON X 7? 
IF L>WXx2 THEN 1180 
REM — TRACER LE POINT 
LCFRINT TAB(LHI)i "+"; 
NEXT 
IF S=1 THEN 1180 
REM — IMPRIMER L'AXE DES Y 
CFRINT TAB(W+1)s:"K"; 
1000 GOTO 1180 
1010 S=T 


1020 REM — HOUCLE FOUR IMPRIMER L’AXE DES X 


10350 FOR J=0 TO 2XxW 
1040 IF X(S)<5>5J THEN 1140 
1050 KEM — TRACER UN FOINT SUR L'AXE DES X 
1070 FOR K=S TO T+F-1 
1080 IF X(H)=X(S) THEN 1110 
19090 S=k 
1100 GOTO 1150 
1110 NEXT EH 
1120 GOTO 1150 
1150 REM — IMPRIMER L'AXE DES X 
(1140 LPRINT "4": | 
1150 NEXT J 
1160 REM — MARQUER L'AXE DES X 
LFRINT "X'"3: 
LFRINT 
1190 NEXT I 
1200 REM — MARQUER L'AXE DES Y 
LFRINT TAR(W+1)3"Y" 
FRINT 2: PRINT "XKkkk*x FIN DU FROGRAMME Xxkxkx" 
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Exemple : 


Tracer l’équation : f(d) = 2 : (1 — cos(d)) 


N'oubliez pas 

d‘introduire la fonction 
290 F=2*xS5(1-COS(D)) à la ligne 290 avant 
RUN 


TRACE DE COURBES EN COORDONNEES FOLAIRES de lancer le programme. 
VALEUR ABSOLUE DES EXTREMITES? 4 
MISE EN MARCHE DE L’IMPRIMANTE FUIS AFPUYER SUR LA BARRE ESPACE 


VALEUR AESOLUE DES EXTREMITES = 4 INCREMENT SUR X .1147857 
INCREMENT SUR Y .1904762 


+ 
+ 
+ + 


x 
* 
x 
x 
* 
* 
x 
* 
X 
x 
x 
X 
L 
x 
LS 
x 
* 
X 
* 
x 


++ 
X ++ 

+ XNA NOK CAO MONA NONOMOHONONAONCOKONOHONOKOKOKOKHMOKOKK CCC HOONOKOH OKON HO ACC AC NOK X 
X ++ 

++ 


+ 
+ 
+ + 


< x de de € x de 6 76 2 D 2 x X 2% 2 2% % 7 


XXXXX FIN DU FROGRAMME XXKXXXX%X 
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TRACÉ DE FONCTIONS 


Ce programme calcule et trace jusqu’à neuf fonctions différentes. Toutes doivent être 
des fonctions de x et être tracées dans le même système d’axes. 


Pour positionner les axes, on doit indiquer les extrémités des axes des x et des y, ainsi que 
l’incrément des points sur chaque axe. 


Le graphique est non conventionnel car l’axe des x est vertical et l’axe des y est horizon- 
tal. Pour lire le graphique, on doit, soit tourner l’imprimé obtenu de 90° dans le sens con- 
traire des aiguilles d’une montre, soit s’adapter mentalement à ce changement des conven- 
tions. 


Le graphique est aussi non conventionnel en ceci que les axes ne se coupent pas forcé- 
ment à l’origine 0,0. Un rappel du point d’intersection des axes est imprimé au-dessus de 
chaque graphique. 


On doit entrer les fonctions à tracer sous forme d'instructions de programme, avant 
d’exécuter le programme. Les lignes de programme 351 à 359 sont réservées à cet usage. Les 
fonctions doivent être entrées selon la séquence correspondant à Y(1), Y(2)... Y(9). 


Si par exemple, on veut tracer les fonctions f(x) = 2x + 1 et f(x) = vx, on doit taper : 


SS1 Y(1)=2#X+1 
352 Y(2)=SGR(X) 


Ce programme est prévu pour une sortie sur imprimante 80 colonnes. Cependant vous 
pouvez le modifier pour obtenir le tracé sur l’écran en changeant les LPRINT par des 
PRINT. Vous les trouverez aux lignes 310, 320, 330, 540, 570, 590, 630, 650 et 690. II vous 


faudra aussi supprimer les lignes 270 et 290. 


90 


10 
20 


F0 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "TRACE DE FONCTIONS" 
COLOR 7,0,0 


40 FRINT 

50 REM —- LE NOMBRE DE FONCTIONS A TRACER EST LIMITE À 9 
60 DIM Y(9), A$(11) 

70 FOR I=1 TO 11 

80 REM — LES VALEURS DU TABLEAU A$ FROVIENNENT DE LA LIGNE 700 
90 READ A$(I) 

100 NEXT I 

119 REM — UNE ENTREE EST NECESSAIRE AUX LIGNES 120 À 170 
120 FKRINT "NOMBRE DE FONCTIONS A TRACER": 

130 INFUT N 

140 FRINT "AXE X : EXTREMITES GAUCHE, DROITE, INCREMENT'":; 


150 
160 
170 
180 
190 
200 
210 
215 
220 
230 
240 
250 
260 
270 
280 


290 


BARRE ESFACE" 


INPUT X1,X2,X3 

FRINT "AXE DES Y : EXTREMITES BASSE, HAUTE, INCREMENT": 
INFUT Y1,Y2,Y3 

REM - ETABLIR LA VALEUR DE Y 

Y2= (Y2-Y1) /Y3 

REM - L'AXE DES Y EST-IL TROF LONG FOUR L’ IMPRIMANTE? 
REM - SI OUI, MODIFIER LA VALEUR DES EXTREMITES 

REM - OÙ DE L’INCREMENT 

IF Y2€=78 THEN 250 

FRINT CHR$ (7) "EXTENSION SELON Y TROF GRANDE" 

GOTO 160 

PRINT 

FRINT 

REM — L'IMPRIMANTE EST-ELLE FRETE 7? 
FRINT "MISE EN MARCHE DE L’IMPRIMANTE FUIS, AFFUYER SUR LA 


IF INEEY#{5%" " THEN 290 

REM — INDIQUER OÙ SE CROISENT LES AXES 
LFRINT "L'AXE DES X COUFE L'AXE Y EN Y="sYi1 
LFRINT "L'AXE DES Y COUFE L'AXE X EN X=";Xx1 
LFRINT 


REM — EROUCLE FOUR LIRE LA VALEUR DE Y FOUR CHAQUE 
REM — INCREMENT DE X 
FOR X=X1 TO X2 STEF X3 
Y(1)=COS(X) 
Y(2)=SIN(X) 

REM -— Y(3)=FONCTION DE 
REM — Y(4)=FONCTION DE 
REM — Y(S5)=FONCTION DE 
REM — Y(6)=FONCTION DE 
REM — Y(7)=FONCTION DE 
REM — Y(8)=FONCTION DE 
REM — Y(9)=FONCTION DE 
FOR I=i TO N 

REM — ARRONDIR LA VALEUR DE Y FOUR CHAQUE INCREMENT DE X 
YCID=INT((Y(I)-Y1)/Y3+.5) 

NEXT I 

REM — ROUCLE FOUR LIRE LA VALEUR DE CHAQUE INCREMENT DE Y 
FOR 1=0 TO Y? 

REM — S COMFTE LE NOMBRE DE VALEURS À CHAQUE INCREMENT 


DK XX XX >< D >< D» 


35 REM -— DE Y FOUR CHAQUE X 


S=0 
FOR J=1 TO N 
REM —- TRACER UN FOINT A CET ENDROIT? SI OUI, 


5 REM — MEMORISER LE NUMERO DE LA FONCTION EN T 
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460 IF Y(J)<>1 THEN 490 
470 S=S+1 
480 T=J 
490 NEXT J 
500 REM - TEST DU NOMBRE DE FOINTS A TRACER EN UN ENDROIT : S'IL 
510 REM - EST NUL TRACER "+"(PREMIERE LIGNE SEULEMENT), FOUR 1 
520 REM - TRACER LE N° DE LA FONCTION, FOUR 2 ET PLUS "x" 
530 IF S>0 THEN 560 
550 GOTO 600 
S60 IF S>1 THEN 590 
580 GOTO 600 
600 NEXT I 
610'REM - MARQUER LES EXTREMITES DES AXES 
620 IF X>X1 THEN 650 
30 LPRINT "V"; 
640 REM - FASSER A LA LIGNE SUIVANTE 
660 REM - APRES L’IMPRESSION DE L'AXE DES Y, INTRODUIRE DES 
665 REM - ESFACES AU LIEU DE "+" 
670 A$(11)=" " 
680 NEXT_X 
690 LFRINT "x" 
700 DATA ÉRIC EEE AN QRRN ACER MA 
710 PRINT : PRINT "XXkkX FIN DU PROGRAMME XXkkx" 


Exemple : 


Tracer les fonctions f(x) = cos(x) et f(x) = sin(x). 


551 Y(1)=COS(X) 
252 Y(Z2)=SIN(X) 


Ne pas oubliez 
d'entrer les fonctions 
avant de lancer 

le programme 

ligne 351 à 352 


TRACE DE FONCTIONS 


NOMBRE DE FONCTIONS À TRACER? 2 
AXE X : EXTREMITES GAUCHE, DROITE, INCREMENT® 
AXE DES Y : EXTREMITES RASSE, HAUTE, INCREMENT® 
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L'AXE DES X COUFE L'AXE Y EN Y=-®2 
L'AXE DES Y COUFE L'AXE X EN X=-5 


A EE EL EE EE 


1 2 


La | 
ss 


de 


" 
pou 


we 
ü 


+ 
+ 
+ 
+ 
+ 
$ 
+ 
+ 
+ 
+ 
+ 
£ 
" 
+ 
ra 
+ 
+ 
+. 
+ 
+ 
+ 
+ 
+ 
4 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+: 
X 


XXXX*X FIN DU FROGRAMME X#XXXxXx 
OH 
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INTERPOLATION LINÉAIRE 


Ce programme calcule les coordonnées y de points sur une droite, les coordonnées x 
étant données. Il faut connaître les coordonnées de deux points sur la même droite. 


Le point est interpolé en utilisant la formule : 


O2 — y). (x — x)) 


V= VE 
: 5 = x) 


avec : X,, y, = coordonnées du premier point sur la droite 
X>, Y, = coordonnées du deuxième point sur la droite 
x abscisse du point à interpoler 


y — ordonnée du point d’abscisse x sur la droite 


10 KEY OFF : CLS :COLOR 0,7,0 
20 FRINT "INTERFOLATION LINEAIRE" 

30 COLOR 7,0,0 

40 DEFDEL A-Z 

30 FRINT 

60 KEM — ENTRER LES COORDONNEES X ET Y DE DEUX FOINTS SUR LA DROITE 
7Q FRINT "X,Y DU FREMIER POINT": 

80 INFUT X1,YI1 

90 FRINT "X,Y DU SECOND FOINT': 

100 INFUT X2,Y2Z 

110 REM — ENTRER LA COORDONNEE X FOUR LE FOINT À INTERFOLER 
120 PRINT "INTERFOLER FOUR : X =": 

130 INFUT X 

140 REM — CALCUL DE LA COORDONNEE Y CORRESFONDANTE 

150 Y=YI+(Y2-Y1)/(X2-X1)X(X-X1) 

160 REM — ARRONDIR ET IMFRIMER 

170 FRINT " Y = Ms INT(YX1000+,5)/1000 

180 FKRINT 

190 FRINT "AUTRES POINTS SUR CETTE DROITE (1=QOUI, O=NON)"; 
200 INFUT Z 

210 FRINT 

220 IF Z=1 THEN 120 

230 REM —- INTERFOLER UNE AUTRE DROITE 

240 FRINT "NOUVELLE DROITE (1=OUI, O=NON)"; 

2530 INFUT Z 

260 IF Z=i THEN 50 

270 PRINT:FRINT "XXKXKkX*X FIN DU PROGRAMME *Xxxkx" 
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Exemples : 


Une table de conversion indique 15,56°C pour 60°F et 32,22°C pour 90°F. Calculer les 
degrés Celsius pour 73°F et 85,6°F. 


On impose une nouvelle taxe de 17,5 % sur les ventes. Quelle sera la taxe sur un canapé 
vendu 455,68 F ? 


INTERFOLATION LINEAIRE 
X,Y DU PREMIER FOINT? 60,15.56 
X,Y DU SECOND FOINT?F 90,32.227 
INTERFOLER FOUR : X =7 75 
Y = 22.779 
AUTRES FOINTS SUR CETTE DROITE (1=OÙUI, O=NON)? 1 


INTERFOLER FOUR : X =7 85.6 
Y = 29.777 


AUTRES FOINTS SUR CETTE DROITE (1=OUI, O=NON)? © 


NOUVELLE DROITE (1=OUI, O=NON)? 1 


X,Y DU FREMIER FOINT? 0,0 
X,Y DU SECOND FOINT? 100,17.5 
INTERFOLER FOUR : X =? 455.68 

Ÿ = 79.744 
AUTRES FOINTS SUR CETTE DROITE (i=QUI, O=NON)? © 
NOUVELLE DROITE (1=OUI, O=NON)7 © 


XXXXX FIN DU FROGRAMME XXKK%X 
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INTERPOLATION CURVILIGNE 


Ce programme calcule les coordonnées y de points sur une courbe, leurs coordonnées x 
étant données. Il faut entrer les coordonnées des points connus sur la courbe dont aucun ne 
doit avoir la même abscisse qu’un autre. 


Les calculs sont faits en utilisant la méthode d’interpolation de Lagrange. 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "INTERFOLATION CURVILIGNE" 
COLOR 7,0,0 
DEFDEL A-Z : DEFINT I,J 
FRINT 
PRINT "NOMBRE DE FOINTS CONNUS"; 

INFUT F 
REM — DIMENSIONNER X() ET Y() 
REM — EN FONCTION DU NOMBRE DE FOINTS CONNUS 
DIM X(F), Y(F) 

PRINT 

FOR I=i TO F 

REM —- ENTRER LES COORDONNEES DES POINTS CONNUS SUR LA COURBE 
FRINT "X,Y DU FOINT'":1I: 

INFUT X(I), Y(I) 

NEXT I 

FRINT 


REM — ENTRER LA COORDONNEE X DU FOINT A INTERFOLER 
PRINT "INTERFOLER FOUR : X="; 
INFUT À 


H=Q 

REM — CALCULER LA COORDONNEE Y CORRESFONDANTE 
REM — FAR LA METHODE D°INTERFOLATION 
FOR J=i TO F 

T=1 

FOR I=i TO F 

IF I=J THEN 290 
T=TX(A-X(I))/(X(J)-X(I1)) 

NEXT I 

E=E+TXY(J) 

NEXT J 


REM — IMPRIMER LES RESULTATS 

FRINT " =": CSNG(E) 

FRINT 

REM — AUTRES FOINTS À INTERFOLER SUR LA MEME COURRE 7? 
PRINT "AUTRES X SUR CETTE COURBE (1=OUI, O=NON)": 
INFUT C 


IF C=1 THEN 170 

REM —- RELANCER OÙ ARRETER LE FROGRAMME 7? 

FRINT "AUTRES X SUR UNE AUTRE COURBE (1=OUI, O=NON)"; 
INFUT C 

IF C=i THEN CLEAR : GOTO 40 

FRINT:FRINT "KXXXXX FIN DU FROGRAMME XXKkXX" 


Exemples : 


Considérons la courbe y = x°- 3x + 3. On sait que les points (— 3, — 15), (— 2,1), 
(— 1,5), (0,3), (1,1), (2,5) et (3,21) sont sur cette courbe. Quelle est la valeur de y pour x = 
— 1,65 et pour x — 0,2 ? 


Etant donné les points ci-dessous sur la courbe y = sin(x), quel est le sinus de — 2,47 et 
celui de 1,5 ? 


(-5,.958) (0,0) 
(-4,.757) (1,.841) 
(3,: 140) (2,.909) 
(-2,-.909) (3,.141) 
(-1,-.841) (4,-.757) 
(5,-.959) 


INTERFOLATION CURVILIGNE 


DE FOINTS CONNUS? 7 


FOINT 1 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 


P -3,-15 
Le 
2 
nl 
rs 


#3 


NCA) 


à 


INTERFOLER FOUR : X=7 -1.85 
Y= 3.457875 


AUTRES X SUR CETTE COURBE (1=OUI, O=NON)? 1 


INTERFOLER FOUR : X 
Y= 2.4 


AUTRES X SUR CETTE COURBE (1=OUI, OZ=NON)?F © 
AUTRES X SUR UNE AUTRE COURBE (1=OUI, O=NON)? 1 


DE FOINTS CONNUS? 11 


FOINT 
POINT 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 


-5,.958 
-4,.757 
-3,-.141 
-2,-.909 
—1,-—.841 
0,0 

7 1,.841 
FOINT 8 7 3,.909 
FOINT 9 7 3,.141 
POINT 10 7 4,-.757 
FOINT 11 7 5,-.959 


DVENTUORAT M 


X,Y 
Xs Ÿ 
X3Y 
X:Y 
XS:Y 
X,Y 
XS:Y 
X.Y 
X,YŸ 
X,Y 
X4Y 


INTERFOLER FOUR : X=7 -2.47 
=—, 62183596 


AUTRES X SUR CETTE COURBE (1=OUI, O=NON)? 1 


INTERFOLER FOUR : X=7 1.5 
Y= .9971658 


AUTRES X SUR CETTE COURRE (1=QOUI, O=NON)?7 © 
AUTRES X SUR UNE AUTRE COUREHE (1=OUI, O=NON)? © 


XXXXX FIN DU PROGRAMME XXXXX 
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INTÉGRATION 
PAR LA MÉTHODE DE SIMPSON 


Ce programme donne la valeur approchée de l’intégrale définie d’une fonction. L’inté- 
gration se fait par la méthode de Simpson. | 


Ce programme permet un choix ; on doit indiquer soit la fonction de la courbe, soit des 
valeurs de la fonction à des intervalles définis. Dans les deux cas, on doit entrer les bornes 
d'intégration et l’incrément entre les points compris entre ces bornes. 


Si la fonction à intégrer est connue, on doit l’entrer avant d’exécuter le programme. La 
fonction sera définie à la ligne 90. Par exemple, la fonction f{x) = x3 sera entrée comme 
suit : 


90 DEF FNC(X) = (x) À 3 


10 KEY OFF : CLS :COLOKR 0,7,0 

20 PRINT "INTEGRATION FAR LA METHODE DE SIMFSON" 

FO COLOK 7,0,0 

40 FRINT 

50 FRINT "CHOISIR : 1 = FONCTION CONNUE, © = FONCTION INCONNUE ‘"; 
6 INFUT S 

70 KEM - DEFINIKR LA FONCTION À LA LIGNE 32:00 

8O KEM — DEF FNC(CX)="FONCTION" 

90 DEF FNC(X)=XTS 

109 FRINT "LIMITES INFERIEURE ET SUFERIEURE DE L'°INTEGRALE": 

110 INFUT A,H 

170 FRINT "INCREMENT DE X': 

150 INFUT X1 

140 REM — L'INCREMENT DOIT DIVISER L'’INTERVALLE EN 

150 REM —- SOUS-INTERVALLES EGAUX, SINON CHANGER L'INCREMENT 

160 IF (BH-A)/X127INT((H-A)/X1) THEN FRINT CHR$(7): GOTO 120 

170 IF S=i THEN 250 

180 REM — FORMULE INCONNUE : ENTRER LA VALEUR DE LA FONCTION 

185 REM — AUX BORNES D°INTEGRATION 

190 PRINT "FREMIERE ET DERNIERE VALEUR DE FX)": 

200 INFUT Yi, Y® 

210 GOTO 250 

220 REM - FORMULE CONNUE : CALCUL DE F(X) AUX 

225 REM — RORNES D°INTEGKRATION 

250 YI1=FNC (A) 

240 Y2=FNC(E) 

250 C=0 

269 D=0 

270 REM -— HOUCLE FOUR CHAQUE SOUS-INTERVALLE 

280 FOR Izi TO (B-A)/X1-.5 

290 IF S=i THEN 3540 

300 FRINT "VALEUR DE F(X) A L'INTERVALLE Mis" CX= "ss STRSE (AHIKX1)5 "D": 
310 INFUT Y 
GOTO 5360 
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REM — CALCULER FX) A CHAQUE SOUS-INTERVALLE 
Y=FNC(A+IXX1) 

REM — INTERVALLE FAIR OÙ IMFAIR ? 

IF I/2=INT(I/2) THEN 410 

REM — CUMUL DES VALEURS DE LA FONCTION AUX 

REM — INTERVALLES IMFAIRS 

C=C+Y 

GOTO 420 

REM — CUMUL DES VALEURS DE LA FONCTION AUX 

REM — INTERVALLES FAIRS 

D=D+Y 

NEXT I 

PRINT 

REM — SAUTER LE SOUS-FROGRAMME * FONCTION" FOUR 
REM — ARRETER LE FROGRAMME 

DEF FNR(X)=INT(X#X100000!+,.5)/100000! 

PRINT M"L'INTEGRALE VAUT "3 FNRÇCX1/7X (Y1+4XC+27XD+Y2)) 
FRINT:FRINT UÆXKKKX FIN DU PROGRAMME *XXxxxx" 


Exemples : 


Trouver l’intégrale définie de la fonction f{x) = x3 entre les limites 0 et 2 avec des incré- 
ments de 0,2 et 0,1. 


Quelle est l’intégrale d’une courbe entre — 1 et 1 si les points connus sont les suivants : 


(— 1, 0.54) (0.25, 0.969) 
(— 0.75, 0.73) (0.5, 0.878) 

(— 0.5, 0.878) (0.75, 0.73) 

(— 0.25, 0.969) (1, 0.54) 

(0, 1) 


90 dDEF FNC{X)=X"S : 
RUN Premier 


INTEGRATION FAR LA METHODE DE SIMFSON exemple 


CHOISIR : 1 = FONCTION CONNUE, © = FONCTION INCONNUE ? 1 
LIMITES INFERIEURE ET SUFERIEURE DE L'INTEGRALE? 0,2 
INCREMENT DE X® .2 


L'INTEGRALE VAUT 4 


XXKXXX FIN DU FROGRAMME XXXkxxxX 

OK 

RUN 

INTEGRATION FAR LA METHODE DE SIMPSON 


CHOISIR : 1 = FONCTION CONNUE, © = FONCTION INCONNUE ? 1 
LIMITES INFERIEURE ET SUFERIEURE DE L'INTEGRALE? 0,2 
INCREMENT DE X7 .1 


L'INTEGRALE VAUT 4 


XXXXX FIN DU FROGRAMME *XKkxxx 
Ok 


RUN 
INTEGRATION PAR LA METHODE DE SIMPSON 


CHOISIR : 1 = FONCTION CONNUE, © = FONCTION INCONNUE ? © 
LIMITES INFERIEURE ET SUFERIEURE DE L°INTEGRALE?T -1,1 
INCREMENT DE X? .25 

FREMIERE ET DERNIERE VALEUR DE FX)? .54,.54 

VALEUR FX) À L'INTERVALLE 1 (X=-.75)7 ,.73 
VALEUR FX) L° INTERVALLE (X=-.5)7 .878 
VALEUR FX) L' INTERVALLE (X=-.25)7 .969 

(X= 0)7 1 

(X= .25)7 .969 

(X= .5)7 .878 

(X= .75)7 .735 


VALEUR FX) 
VALEUR FCX) 
VALEUR FCX) 


L' INTERVALLE 
L°' INTERVALLE 
L’' INTERVALLE 


A 
A 
VALEUR FX) À L'INTERVALLE 
[s) 
A 
A 


NTURiAT)J 


L'INTEGRALE VAUT 1.682 


XXXXX FIN DU FROGRAMME XKXXX* 
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INTÉGRATION : 
PAR LA MÉTHODE DES TRAPÈZES 


Ce programme donne la valeur approchée de l’intégrale définie d’une fonction. L’inté- 
gration se fait au moyen de la méthode des trapèzes. On doit indiquer les bornes d’intégra- 
tion et le nombre d’intervales compris entre ces bornes. 


La fonction à intégrer doit être entrée avant d’exécuter le programme. La fonction de x 
sera définie à la ligne 60. Par exemple, la fonction f(x) = x3 sera entrée comme suit : 


60 DEF FNC{X)=XTE 


10 FEV OFF : CLS :COLOKR 9, 
20 PRINT "INTEGRATION FAR LA METHODE DES TRAFEZES" 


30 COLOR 7,0,0 

49 FRINT 

50 REM -— DEFINIR LA FONCTION A LA LIGNE 60 (DEF FNC(X)="FONCTION") 
60 DEF FNC(X)=X"Z 

70 FRINT "ENTRER O,0 FOUR ARRETER LE FROGRAMME" 

809 FRINT "BORNES DE L°INTEGRATION (INFERIEURE, SUFERIEURE) “; 
90 INPUT A, 

100 REM — ARRET DU PROGRAMME 7 

110 IF A=E THEN 270 

120 FRINT "NOMBRE D°INTERVALLES": 

130 INFUT N 

140 1=0 


159 KEM - D EST LA DIMENSION DE CHAQUE INTERVALLE 
160 D=(EH-A) /N 


170 FEM — CUMUL DE LA SURFACE DE CHAQUE TRAPFEZE 
189 FOK J=A TO E+D/2 STEF D 

190 I=I+FNC(J) 

200 NEXT J 

219 REM — CALCUL DE L'INTEGRALE, ARRONDIR, IMPRIMER 
220 DEF FNR(X)=INT(X#X100000!+,5)/100000! 

230 1=(I-(FNC (A) +FNC (EH) ) /2) XD 

240 FRINT "INTEGRALE =": FNR(I) 

2350 FKRINT 

260 GOTO 80 

270 FRINT:FRINT UXKXKXX FIN DU PROGRAMME XKX#4xxX" 
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Exemples : 
Trouver l'intégrale définie de la fonction f(x) = x3 entre 0 et 2 avec 10 et 20 intervalles. 


Trouver l'intégrale définie de la fonction f(x) = x-2 entre 1 et 2 et 2 et 3 en utilisant 10 
intervalles. 


Attention : 
Ne pas oublier 
d'‘entrer la formule 
avant de 

lancer le programme. 


60 DEF FNC{X)=XTS 
RUN 
INTEGRATION FAR LA METHODE DES TRAFEZES 


ENTRER 0,0 FOUR ARRETER LE FROGRAMME 

RORNES DE L'°INTEGRATION (INFERIEURE, SUFERIEURE)? 0,7 
NOMBRE D°INTERVALLES®T 10 

INTEGRALE = 4.04 


HORNES DE L’INTEGRATION (INFERIEURE, SUFERIEURE)? 0,2 
NOMERE D'°INTERVALLES?T 20 
INTEGRALE = 4.01 


EORNES DE L’INTEGRATION (INFERIEURE, SUFERIEURE)? 0,0 


XXXXX FIN DU FROGRAMME X#XKX*x 
Ok 


60 DEF FNC(X)=1/XTE 
RUN 


INTEGRATION FAR LA METHODE DES TRAFEZES 

ENTRER 0,0 FOUR ARRETER LE FROGRAMME 

EORNES DE L'INTEGRATION (INFERIEURE, SUFERIEURE)?T 1,27 
NOMERRE D'INTERVALLES? 10 

INTEGRALE = .50146 

EORNES DE L'INTEGRATION (INFERIEURE, SUFERIEURE)?T 2,3 
NOMBRE D'INTERVALLES? 10 

INTEGRALE = .16681 

EORNES DE L°INTEGRATION (INFERIEURE, SUFERIEURE)? 0,0 


KXX#XX FIN DU FROGRAMME XKXXX 
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INTÉGRATION 
PAR LA MÉTHODE DE GAUSS 


Ce programme donne la valeur approchée de l’intégrale définie d’une fonction. On doit 
indiquer les bornes d'intégration et le nombre d’intervalles compris entre ces bornes. 


L’intervalle de l’intégration est divisé en sous-intervalles égaux. L’intégrale définie est 
calculée sur chaque sous-intervalle au moyen de la formule de Gauss. Les intégrales des 
sous-intervalles sont additionnées pour obtenir l’intégrale définie de l’intervalle entier. On 
doit entrer la fonction à intégrer avant d’exécuter le programme. La fonction de x sera défi- 
nie à la ligne 70. Par exemple, la fonction f(x) = x3 sera entrée comme suit : 


7Q DEF FNC(X)=XTS 


EEY OFF : CLS :COLOR O, 
FRINT "INTEGRATION FAR h METHODE DE GAUSS" 


COLOR 7,0,0Q 

DEFDEL A-2 : DEFSNG I,J 
FRINT 
REM — ENTRER LA FONCTION À LA LIGNE 70 DE LA FACON SUIVANTE : 
REM — DEF FNC(CX)="FONCTION" 
DEF FNC(X)=1/XT27 
REM — AECISSES ET FOIDS DES FACTEURS FOUR 20 FOINTS 
DATA .076526S21,.15E + 
DATA .14209611,.510867,.173168864,.67605568,.118194S 

DATA 1746323191, .10192012,.82911697, . 0832276742, . 91223443 
DATA .062672048,.96397193,.0406014%,.9931286,.017614007 
FRINT "EORNES D°INTEGRATION (INFERIEURE, SUFERIEURE) "; 
INFUT X,Y 

FRINT "NOMBRES D'INTERVALLES"; 

INFUT N 

S=(Y-X) /N/E 


T=X+S 


K=Q 

REM — CALCUL DE L'INTEGKRALE POUR CHAQUE SOUS-INTERVALLE 
FOR 1=1i TON 

F=Q 

REM — CALCUL DU FACTEUR DE SOMMATION FOUR CHAQUE 
9 REM —- SOUS-INTERVALLE 

FOR J=1i TO 10 

READ A,R 

P=F+EBXx (FNC'ISXA+T) +FNC(T-SXA) ) 

NEXT J 

RESTORE 

R=KR+FXS 

T=T+2XS 

NEXT I 

FRINT "INTEGRALE =": CSNG(K) 

PRINT 

FRINT "CHANGER LES DONNEES ET RECALCULER 7" 

D’ INTERVALLES)" 3 


350 FRINT "(CO=NON,1= NOUV. BORNES D°INTEGRATION, Z=NOUVEAU NE. 
D° INTERVALLES)"; L:G 
360 INFUT S 


370 IF S=1 THEN 130 
280 IF S=? THEN 159 
390 FRINT : FRINT "#XXXX FIN DU FROGRANME XKxxkxx" 


Exemples : 


Trouver l’intégrale définie de la fonction ffx) = x3 entre 0 et 2 avec 10 et 20 sous- 
intervalles. 


Trouver l'intégrale définie de la fonction ffx) = x-2 entre 1 et 2 en utilisant 10 sous- 
intervalles. 


70 DEF FNC(X)=XTS 
RUN 
INTEGRATION FAR LA METHODE DE GAUSS 


EORNES D'’INTEGRATION (INFERIEURE, SUPERIEURE)?F OQ,2% 
NOMERRES D'INTERVALLES?T 10 
INTEGRALE = 4 


CHANGER LES DONNEES ET RECALCULER 7? 


CO=NON, 1= NOUV. BORNES D°INTEGRATION, Z=NOUVEAU NE. D'INTERVALLES)® Z 
NOMBRES D'INTERVALLES?T 20 
INTEGRALE = 4 


CHANGER LES DONNEES ET RECALCULER 7? 
(O=NON, 1= NOUV. EHORNES D°INTEGRATION, Z=NOUVEAU NE. D'INTERVALLES)? 0 


XXXXX FIN DU FROGRAMME XXXKX 


Ok Attention 
Ne pas oublier d'entrer 


la formule correspondant 
70 DEF ENCCX)=1/X"7 à votre problème avant 
RUN de lancer le programme. 


INTEGRATION FAR LA METHODE DE GAUSS 


EORNES D'INTEGRATION (INFERIEURE, SUPERIEURE)?T 1,2 
NOMERES D'INTERVALLES®T 19 
INTEGRALE = .5 


CHANGER LES DONNEES ET RECALCULER 7? 

(O=NON, 1= NOUV. RORNES D°INTEGRATION, 2Z=NOUVEAU NE. D°INTERVALLES)® 1 
EORNES D°INTEGRATION (INFERIEURE, SUFERIEURE)? 2,3 
NOMBRES D'INTERVALLES? 10 

INTEGRALE = .1666667 


CHANGER LES DONNEES ET RECALCULER 7? 
(O=NON, 1= NOUV. EHORNES D’ INTEGRATION, Z=NOUVEAU NH. D°INTERVALLES)?7 Q 


XXXXX FIN DU PROGRAMME XXKXKXKX 
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DÉRIVATION 


Ce programme calcule la dérivée d’une fonction donnée à un point donné. 

On doit entrer la fonction à évaluer avant d’exécuter le programme. La fonction sera 
entrée dans l'instruction de définition de la ligne 70. 

Par exemple, la fonction à évaluer f{x) = x2 + cos(x) sera entrée de la façon suivante : 


70 DEF FNCCX)=X#X+COS(X) 


HEY OFF : CLS :COLOR 0,7,0 
FRINT "DERIVATION" 
COLOR 7,0,0 
DEFDEL A-Z : DEFSNG N 
PRINT 
REM — ENTRER LA FONCTION À LA LIGNE 70 (DEF FNC(X)="FONCTION") 
DEF FNC(X) =XKX+C0S (X) 
FRINT "(ENTRER X=99999 POUR ARRETER LE FROGRAMME) " 
PRINT "LA DERIVEE À X="; 

INFUT Xi 

REM -— TEST FOUR ARRETER LE PROGRAMME 

IF X1=99999! THEN 240 

D=0 

REM —- CALCUL DU QUOTIENT DES DIFFERENCES 

REM — FOUR DES POINTS AFFROCHANT X 

FOR N=1i TO 10 

Di=D 

X=X1+. SN 

D= (FNC CX) -FNC (X1))/ (X-X1) 

NEXT N 

REM - ESTIMATION DE LA DERIVEE DE LA FONCTION 
REM — EN X, IMPRESSION 

PRINT " EST "; CSNG(?*XD-D1) 
REM - RELANCER LE FROGRAMME 7 

GOTO 90 

PRINT: PRINT “XKKKX FIN DU PROGRAMME Xkkk4" 


Exemple : 
Calculer la dérivée de la fonction f(x) = x2 + cos(x) pour x = — 1,x = Oetx = 1. 


70 DEF FNC(X)=XKxX+COS(X) 5 
RUN Entrer la fonction 


DERIVATION avant de 
lancer le programme. 

(ENTRER X=99999 FOUR ARRETER LE FROGRAMME) 
LA DERIVEE A X=7 —1 

EST -1.1589:64 
LA DERIVEE A X=7 0 

EST O0 
LA DERIVEE A X=7 1 

EST 
LA DERIVEE 4 X=7 99999 


XXXXX FIN DU FROGRAMME #XXKkx%x 
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RACINES DES ÉQUATIONS 
DU SECOND DEGRÉ 


Ce programme calcule les racines d’une équation du second degré. Cette équation doit se 
présenter sous la forme : 
| ax + bx+c=0 
a, b, c, étant des coefficients réels ; b et c peuvent être nuls, mais pas a. 


La formule employée est : 


Racines réelles = =b+y-4.a.c 


2.a 
ou 
Racines complexes = aider Va:a.c—b? i 
2.4 2.4a 


HEY OFF : CLS :COLOR 0,7,0 
FRINT "RACINES DES EQUATIONS DU SECOND DEGRE" 
COLOR 7,0,0 
FRINT 
HEM — ENTRER LES COEFFICIENTS A,B,C DE AXX®E + EXX + C 
FRINT "COEFFICIENTS A,E,C,":s 
INFUT A,B,C 
S=H*?-4KAXC 
F=GOR (ABS (S)) 

REM - RACINES COMPLEXES 7 

IF SO THEN 160 

REM - TROUVER LA VALEUR ET LE TYFE DES RACINES, IMPRIMER 
FRINT "RACINES (REELLES) : "3 (-B-R)/(2KA) 3", "3 (-E4+R) / (2KA) 
GOTO 170 

REM — CHR$(241): SYMBOLE + OÙ -— 

FRINT "RACINES (COMPLEXES) : "3-8B/ (RKA) ; CHRS (241); R/ (2XA) 5 "I" 
FRINT 

REM - RELANCE OÙ ARRET DU FROGRAMME 7 

PRINT "AUTRES DONNEES ? (1=OUI, O=NON)"; 

INFUT X 

IF X=1 THEN 40 

FRINT:FRINT CXXKAX FIN DU FROGRAMME XX#kxk4" 
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Exemple : 
Calculer les racines des équations suivantes : 


22 +x—1=0 
X1+4x+6=0 


RACINES DES EQUATIONS DU SECOND DEGRE 


COEFFICIENTS ALKR,C,T 2,1,-—1 
RACINES (REELLES) : -1 , .S 


AUTRES DONNEES 7 (1=QOUI, O=NON)?7 1 


COEFFICIENTS A,B,C,? 1,4,6 
RACINES (COMPLEXES) : -2 + 1.414214 I 


AUTRES DONNEES 7 (1=QOUI, O=NON) 7 O 


XXXXX FIN DU FROGRAMME XXXXX 
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RACINES RÉELLES DE POLYNÔMES : 
MÉTHODE DE NEWTON 


Ce programme calcule les racines réelles de polynômes ayant des coefficients réels. On 
doit entrer une estimation de chaque racine. Les calculs sont menés par la méthode de New- 
ton d’approximation des racines d’une équation f(x) = 0. La valeur de l’erreur et de la déri- 
vée sont données pour chaque racine calculée. 


10 KEY OFF : CLS :COLOR 0,7,0 

20 FRINT "RACINES REELLES D'UN FOLYNOME : NEWTON" 
30 COLOK 7,0,0 

40 FRINT 

50 FRINT "DEGRE DE L'EQGUATION": 

69 INFUT N 

70 KEM — DIMENSIONNER LES TARLEAUX A() ET KH() À N+i 
8Q DIM ACN+1), H(N+1) 

30 KREM -— INITIALISER LES VARIAELES DU TARLEAU 

100 FOR Iz1i TO N+i 

119 A(I)=0 

120 KH(I)=0 

150 NEXT I 

140 FRINT "ENTRER DANS L'ORDRE DE DEGRE CROISSANT: " 
30 FOR I=i TO N+1 

160 REM — ENTRER LES COEFFICIENTS DANS L’ORDRE DE DEGRE CROISSANT 
179 FRINT "COEFFICIENT DE X®"s3l-1s" ss": 

180 INFUT A(I) 

190 NEXT I 

200 FOK 1=i TON 

210 REM -— CALCUL DU COEFFICIENT DE LA DERIVEE DU FOLYNOME 
220 B(I)=ACI+IDXI 

250 NEXT I 

240 FRINT 

250 REM — INITIALISER LA RECHERCHE 

260 FRINT "AMORCE": 

270 INFUT X 

Q=0 

S=1 

F1=0 

FOz=0Q 

REM — COMFTER LES ITERATIONS 

O=0+1 

FOR I=i TO N+i 

REM — CALCUL DE LA VALEUR DE LA FONCTION 
FO=FO+ACI)XS 

REM — CALCUL DE LA VALEUR DE LA DERIVEE 
Fi1=FI1+EHCI)XS 

S=SXX 

NEXT I 

REM — DERIVEE NULLE ? SI QUI, ARRET DE LA RECHERCHE 
REM -— ET IMPRIMER 

IF F1=0 THEN 519 
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450 REM —- TROUVER UNE NOUVELLE VALEUR AFFKOCHEE 
35 REM — A FARTIR DE LA FRECEDENTE 
440 S=zX-FO/F1 
450 REM — SI LES DEUX AFFROXIMATIONS SONT EGALES, IMPRIMER 
460 IF X=S THEN 530 
470 REM — CONSERVER LA DERNIERE ESTIMATION 
480 X=S 
490 IF Q5100 THEN 680 
300 GOTO 290 
910 FRINT "DERIVEE 
9320 GOTO 260 
330 FRINT 


il 


O0 EN C ="; X 


S4Q FRINT " RACINE = "3;X 
950 FRINT " ERREUR = "3;F0 
560 FRINT "DERIVEE = "3;F1 


570 FRINT 

380 REM — RELANCER FOUR AUTRE RACINE AVEC LA MEME FONCTION? 
390 PRINT "AUTRE VALEUR (1=OUI, O=NON)"; 

600 INFUT À 

610 IF A=1 THEN 240 

620 FREM —- RELANCE OÙ ARRET DU FROGRAMME?® 

650 PRINT "AUTRE FONCTION (1=OUI, O=NON)"; 

640 INFUT A 

650 IF Az1i THEN CLEAR : GOTO 40 

660 GOTO 750 

670 REM — IMPRIMER LES VALEURS CALCULEES AFRES 
675 REM - 100 ITERATIONS 

680 FRINT "100 ITERATIONS TERMINEES: " 

690 FRINT "X="sXs;" F(X)=": F0 

700 REM - CONTINUER FOUR 100 ITERATIONS DE FLUS 7 
710 FRINT "CONTINUER ? (C1=QOUI, O©:=NON)": 

720 INFUT À 

730 IF A=i THEN 280 

740 GOTO 590 

750 FRINT : FRINT "XXKXX*X FIN DU FROGRAMME Xxxxx" 


Exemple : 


Trouver les racines de 4x4 — 2.5x2 — x + 0.5 = O0. 


RACINES REELLES D'UN FOLYNOME : NEWTON 


DEGRE DE L'EQUATION? 4 
ENTRER DANS L'ORDRE DE DEGRE CROISSANT: 
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COEFFICIENT 
COEFFICIENT 
COEFFICIENT 
COEFFICIENT 
COEFFICIENT 


Ar: 


AMORCE® -—.8 


RACINE = .3075764 
ERREUR —2.980232E-08 
DERIVEE = -2.070247 


AUTRE VALEUR (1=OUT, O=NON)? © 
AUTRE FONCTION (1=OUI, O=NON)7 © 


XXXXX FIN DU FROGRAMME XXX#X 
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RACINES DE POLYNÔMES : 
RECHERCHE DICHOTOMIQUE 


Ce programme calcule les racines de polynômes à l’intérieur d’un intervalle donné. Le 
programme mène d’abord une recherche aléatoire de deux points de signe opposé dans 
l'intervalle donné. S’il trouve un changement de signe, la racine est calculée par la méthode 
de recherche dichotomique. S’il ne trouve pas de changement de signe, il demande un autre 
intervalle. 


Des erreurs peuvent survenir dans ce programme pour deux raisons. Premièrement, une 
racine peut être calculée alors qu’elle ne devrait pas l’être. Cela peut arriver lorsque le point 
le plus bas est si proche de zéro que l’on trouve une racine due à l’erreur d’arrondi. Deuxiè- 
mement, deux racines peuvent être si proches que le programme ne trouvera jamais le chan- 
gement de signe entre elles ; dans ce cas, aucune racine ne sera calculée. 


Il faut entrer le polynôme avant d’exécuter le programme ; le polynôme sera défini 
comme une fonction de x à la ligne 60. Si, par exemple, on souhaite trouver les racines de la 
fonction f{x) = 4x4 — 2.5x2 — x + 0.5, on entrera : 


60 DEF FNR(X)=4XxX74-2.5XxX"2-X+.5 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "RACINES DE FOLYNOMES: RECHERCHE DICHOTOMIQUE" 
COLOR 7,0,0 
PRINT 
REM —- ENTRER LA FONCTION À LA LIGNE 70 DE LA FACON SUIVANTE : 
REM - DEF FNR(X)="FONCTION" 
DEF FNR(X)=4KX"4-2. SKkX"2-X+.5 
DIM D(2) 
FRINT "FOUR ARRETER LA RECHERCHE ENTRER 0,0" 
FRINT 
REM - ETABLIR L°INTERVALLE DE RECHERCHE ALEATOIRE 
FRINT "INTERVALLE, (CEORNES INFERIEURE, SUFERIEURE) “:; 
INFUT A,R 
REM - VALIDITE DES EHORNES 7? 
IF A£:E THEN 200 
REM — ARRET DU PROGRAMME 7 
IF A=O THEN 680 
FRINT CHR$(7)"---LES BORNES NE FEUVENT ETRE EGALES---" 
FRINT 
GOTO 110 


112 


200 IF ASE THEN 279 

210 PRINT CHR$&(7)"---ENTRER LA RORNE INFERIEURE EN FREMIER---" 
220 GOTO 110 

230 A1=SGN(FNR (À) ) 

240 H1=SGN(FNR (CE) ) 

250 KREM — LA RACINE EST-ELLE UNE HORNE 7? 

260 IF A1KEH1=0 THEN 600 

270 KEM — LES BORNES SONT-ELLES DE SIGNE OFFOSE 

280 IF A1XHI1:O0 THEN 460 

290 KEM -— BOUCLE FOUR RECHERCHER UNE VALEUR CORRESFONDANT 
295 REM —- A UN CHANGEMENT DE SIGNE DE FN() 

200 FOR I=1 TO 1000 

X=A+RND (X) X (H—-A) 

X1=SGN(FNR CX) ) 

REM — X EST-IL UNE RACINE ? SI QUI, ARRET RECHERCHE, IMPRESSION 
IF X1=O THEN 640 

REM — FONCTION DE SIGNE OFFOSE EN X (NE ALEATOIRE) ET EN 
REM — À (CEHORNE INFERIEURE) 

IF AIXX1£0 THEN 450 

REM — ESSAYER UN AUTRE NOMBRE ALEATOIRE 

NEXT I 

FRINT CHR&(7) "AUCUN CHANGEMENT DE SIGNE" 

FRINT 

GOTO 110 

REM — CHANGEMENT DE SIGNE TROUVE 3; CALCUL DE LA RACINE 
E=X 

REM — GARDER LE FOINT PFOSITIF EN D(3), LE FOINT NEGATIF 
REM — EN D(1)3 D(1) ET D(3) DEVIENNENT LES BORNES 
D(2+A1)=A 

D(2-A1)=E 

REM — CALCUL DU MILIEU ENTRE LES HORNES 
Y=(D(1)+D(5))/2 

YI1=SGN(FNKR (Y) ) 

REM - CE MILIEU EST-IL UNE RACINE 7? 

IF Y1=0 THEN 640 

REM —- CHANGEMENT DE LIMITE FOUR SE RAPFROCHER 
D(2+Y1)=Y 

REM — VALEUR SUFFISAMMENT FROCHE DE © FOUR 

REM — ADMETTRE UNE RACINE ? 

IF ARS(D(1)-D(3)) /ARS(D(1)+ARS(D(Z)))£.0000085 THEN 640 
REM — SINON RECOMMENCER AVEC DE NOUVELLES RORNES 

GOTO 490 

REM — LA RACINE EST UNE BORNE, LAQUELLE 7? IMFRIMER 

IF A9=0 THEN 620 


Y=ER1 

GOTO 640 

Y=fA1 

FRINT "RACINE =": Y 

FRINT 

REM — RELANCE DU FROGRAMME 
GOTO 110 

GOTO 119 


FRINT : PRINT "KXXkXXx FIN DU FROGRAMME XKXXX" 


Exemple : 


Trouver une racine de la fonction ffx) = 4x4 — 2.5x2 — x + 0.5. 
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60 DEF FNK(X)=4XxX"4-2,S5XxX"2-X+.5 ; 
RUN Ne pas oublier 
> RUN d'entrer la fonction. 


RACINES DE FOLYNOMES: RECHERCHE DICHOTOMIQUE 
FOUR ARRETER LA RECHERCHE ENTRER O,0 


INTERVALLE, (RORNES INFERIEURE, SUFERIEURE)? -1,0 
AUCUN CHANGEMENT DE SIGNE 


INTERVALLE, CHORNES INFERIEURE, SUFERIEURE)? O,1 
RACINE = .70357568 


INTERVALLE, (BORNES INFERIEURE, SUFERIEURE)?7 O,0 


XXXXX FIN DU FROGRAMME XXXXXxX 


114 


41 


POLYNÔMES TRIGONOMÉTRIQUES 


Ce programme donne la valeur d’une fonction trigonométrique pour un angle donné. La 
fonction doit être présentée sous la forme : 


f(x) = A, sin(x) + B, cos(x) + À, sin(2 x) + B, sin(2 x)... + A, sin (n. x) + B, cos(n . x). 
avec : nr = nombre de paires de coefficients 


Les coefficients de la fonction doivent être entrés dans une instruction DATA à la ligne 
60. Cette instruction comprendra le nombre de paires de cœæfficients {n) et les coefficients de 
la fonction. On les entrera comme suit : 


60 DATA n, Ai, B,, A», B2.. An Bn 


KEY OFF : CLS :COLOR 0,7,0 
PRINT "POLYNOMES TRIGONOMETRIQUES" 
COLOR 7,0,0 
PRINT 
REM - ENTRER A LA LIGNE 60 LES COEFFICIENTS DE LA FACON SUIVANTE : 
REM - DATA n,A1,B1,A2,R2...An,Bn 
DATA 3,1,2,-2,1,5,-3 
PRINT "POUR ARRETER LE FROGRAMME ENTRER : ANGLE = 99999" 
PRINT "ANGLE"; 

INPUT R 

REM - ARRET DU PROGRAMME? 

IF R=99999! THEN 280 

REM - LIRE LE NOMBRE DE FAIRES DE TERMES DU FOLYNOME 
READ N 

REM - BOUCLE FOUR LIRE LES COEFFICIENTS DE LA LIGNE 60 
FOR I=1 TO N 

READ A,B 

REM - CALCUL DE LA FONCTION FOUR L'ANGLE X 
Z=Z+AXSINCIXR)+BXCOS (IXR) 

NEXT I 

REM - IMPRESSION DES RESULTATS 

PRINT “FC";R;")="52 

REM - FREFARER FOUR UNE RELECTURE DES COEF. DE LA FONCTION 
RESTORE 

PRINT 

Z=0 

REM - RELANCE DU FROGRAMME 

GOTO 80 

PRINT : PRINT "X4kk*x FIN DU FROGRAMME XKkkkx" 
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Exemple : 


Donner les valeurs de la fonction ci-dessous pour des angles égaux respectivement à 45, 
90 et 105 radians : 


f(x) = sin(x) + 2. cos(x) — 2. sin(2x) + cos(2x) + 5. sin (3x) — 3 . cos(3x) 


60 DATA 3,1,2,-2, 
RUN 


FOLYNOMES TRIGONOMETRIQUES 

FOUR ARRETER LE FROGRAMME ENTRER : ANGLE = 99999 
ANGLE? 45 

FC 45 )= 53.095587 


ANGLE? 90 
FC 90 )=-2.871681 


ANGLE? 105 
F( 105 )=-1.546648 


ANGLE? 99999 


XXXXX FIN DU FROGRAMME XKXXx%xxX 
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ÉQUATIONS LINÉAIRES 


Ce programme résout un système d’équations linéaires. Le nombre d’inconnues doit être 
égal au nombre d’équations du système. On doit entrer les coefficients de chaque équation. 


KEY OFF : CLS :COLOR 0,7,0 

FRINT "EQUATIONS LINEAIRES" 

COLOR 7,0,0 

PRINT 

FRINT "NOMBRES D°EQUATIONS": 

INFUT R 

REM — DIMENSIONNER AVEC R = NOMBRE MAX, D°EQUATIONS 
DIM A(R,R+1) 

FRINT 

FRINT "MATRICE DES COEFFICIENTS:" 
FRINT 

FOR J=i TOR 

FRINT 


PRINT "EQUATION";:J 

FOR 1=1 TO K+1 

IF I=R+1 THEN 190 

FRINT " COEFFICIENT"; l: 
GOTO Æ00 

FRINT " CONSTANTE"; 
INFUT A(J,I) 


NEXT I 

NEXT J 

FOR J=1i TO KR 

REM - LES LIGNES 260 À 300 RECHERCHE LA FREMIERE EQUATION 
REM — AVEC UN COEF. NON NUL DANS LA COLONNE EN COURS 

FOR I=J TO KR 

IF A(I,J)<>0 THEN 2370 

NEXT I 

FRINT “FAS DE SOLUTION UNIQUE" 

END 

REM - LES LIGNES 320 A 340 TRANSFERENT CETTE EQUATION 
REM — A LA LIGNE EN COURS 

FOR K=1 TO R+1 

SUAF ACJ,H),ACI,H) 

NEXT EH 

REM - LES LIGNES 370 À 400 RECALCULENT LA LIGNE EN COURS 
REM - FOUR OBTENIR UN COEFFICIENT 1 DANS LA FREMIERE 

REM - COLONNE NON NULLE 

Y=1/A(J,1J) 

FOR K=1 TO R+1 


117 


290 ACJ,H)=YXA(J,E) 

400 NEXT EH 

410 REM — LES LIGNES 4370 À 490 SOUSTRAIENT L'EQUATION COURANTE 
420 REM — DES AUTRES 


430 FOR I=1 TO KR 

440 IF I=J THEN 490 

450 Y=-A(I,J) 

460 FOR K=1 TO R+1 

470 ACI,H)=ACI,H)+YKA(J,K) 
480 NEXT K 


490 NEXT I 

300 REM -—- TRAITEMENT REFETE FOUR TOUTES LES EQUATIONS 

510 NEXT J 

520 FRINT 

930 REM —- IMFRIMER LES SOLUTIONS 

540 FOR Izi TO K 

990 FRINT USING "X#H#=":I3:FRINT INT(A(I,R+1) K1000+.5)/1000 
360 NEXT I 

970 FRINT:FRINT "XKEKXXX FIN DU FROGRAMME XXKkxkxx" 


Exemple : 


Résoudre le système d’équations suivant : 


X1 + 2X2 + 3x; = 4 
3x, + 6x; = 1 
— 3x, + 4x, — 2x, = 0 


EQUATIONS LINEAIRES 
NOMBRES D'EQUATIONS? € 


MATRICE DES COEFFICIENTS: 


EQUATION 1 
COEFFICIENT 
COEFFICIENT 
COEFFICIENT 
CONSTANTE? 4 


EQUATION 
COEFFICIENT 
COEFFICIENT 
COEFFICIENT 
CONSTANTE® 1 


EQUATION 3 
COEFFICIENT 
COEFFICIENT 
COEFFICIENT 
CONSTANTER © 


LA) 


Xi=-. 356 
X2= .:44 


X3S= TITI TD 
un CEE 


KXXKXX FIN DU FROGRAMME XXKXXX 
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PROGRAMMATION LINÉAIRE (1) 


Ce programme résout un problème de programmation linéaire par l’algorithme du sim- 
plexe. On doit indiquer les coefficients de la fonction objectif ainsi que les coefficients, rela- 
tion et constante de chaque contrainte. Ces informations sont entrées dans des instructions 
DATA avant d’exécuter le programme. 


Après avoir chargé le programme, entrer les instructions DATA de la manière expliquée 
ci-après. Si l’on résout plusieurs problèmes, il ne faut pas oublier d’effacer toutes les ins- 
tructions DATA du problème précédent avant d’entamer le nouveau. Les instructions 
DATA s’étendent des lignes 1610 à 1660. 


1) Disposer les contraintes du problème selon leurs relations de façon que les inégalités 
« inférieur à » précèdent les égalités qui à leur tour précèdent les inégalités « supé- 
rieur à ». 

2) Entrer en tant que DATA les coefficients des contraintes dans l’ordre de disposition 
des contraintes stipulé en 1). Ne pas inclure de coefficients pour variables libres, de 
surplus ou variables artificielles. Mettre un coefficient ‘0’ pour toute variable n’appa- 
raissant pas dans une contrainte donnée. 

3) Entrer en tant que DATA les constantes des contraintes (partie droite des contraintes) 
dans le même ordre que les lignes de coefficients. Les valeurs de ces constantes ne peu- 
vent pas être négatives. 

4) Entrer en tant que DAT A les coefficients de la fonction objectif. 

5) Les valeurs décimales doivent être suivies d’un #, par exemple 1.01 #. 


On doit indiquer si la solution du problème doit être un minimum ou un maximum. Le 
programme demande aussi d’entrer le nombre total de contraintes et le nombre de 
variable à admettre pour chacune d’elles ainsi que le nombre de contraintes «inférieur à», 
«égal à» et «supérieur à» qui sont à considérer. 


La ligne 190 dimensionne les tableaux 


190 DIM AM+2,N+M +G +1), B(M +2) 


avec : M = nombre de contraintes 
N = nombre de variables 
G = nombre de contraintes « supérieur à » 


ÉEY OFF : CLS :COLOR 0,7,0 
FRINT "FROGRAMMATION LINEAIRE" 
COLOR 7,0,0 


DEFDEL A-7 : DEFINT C,E,I-N,2Z 

DEF FNR7(X)=INT(XKX10000000#+.3)/10000000%# 

REM — FROGRAMMATION LINEAIRE, METHODE DU SIMFLEX 
FRINT 
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80 FRINT "ENTRER: 1=MAXIMISATION , —1=MINIMISATION": 
90 INFUT Z 


100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
270 
240 
250 
260 
270 
280 
290 
F00 
310 
320 
sue) 
340 
350 
F60 
270 
3:80 
E90 
400 
410 
420 
4750 
440 
450 
460 
470 
480 
490 
500 
910 
520 
930 
S4Cr 
9930 
60 
570 
580 
390 
600 
619 
620 
630 
649 
650 
660 
670 
680 


2=-7 

FRINT "NOMBRES DE CONTRAINTES, NOMBRES DE VARIABLES": 
INFUT M,N 

FRINT "NOMBRES DE CONTRAINTES: INFERIEURES, EGALES, SUFERIEURES"; 
INFUT L,E,6G 

IF M=L+E+G THEN 190 

FRINT "DONNEES SUR CONTRAINTES INCONSISTANTES ESSAYER ENCORE" 

GOTOQ 110 

REM — DIMENSION DES TABLEAUX A(X,X) & H(x) 

DIM ACM+E,N+M+G+1) ,E(M+2) 

REM — INITIALISATION 

CEN+M+G 

Ci=C+i 

C2=N+L+6G 

Mi=M+1 

M2=M+2 

FKRINT 

FOR I=1 TO ME 

FOR J=1 TO Ci 

AtI,J)=0 

NEXT J 

NEXT I 

FOR I=i TO M 

H(I)=0 

NEXT I 

FOR I1=1 TO M 

FOR J=i TON 

READ A(I,J) 

IF I£=L THEN 400 

A(M1,J)=A(MI1,J)-A(I.,9) 

NEXT J 

IF IL THEN 450 

R(I)=N+I 

ACI,N+I)=1 

GOTO 510 

EHCI)=N+G+I 

ACI,N+G+I)=1 

IF IëL+E THEN 490 

GOTO 510 

ACI,N+I-E)=-1 

AMI,N+I-E)=1 

NEXT I 

FOR I=i TO M 

READ A(I,C1) 

NEXT I 

FOR J=i TON 

READ A(M2,J) 

A(MZ,J)=ZXxA(M2,9J) 

NEXT J 

FRINT 

FRINT "VOS VARIABLES DE 1 A'":N 

IF L=O THEN 630 

FRINT "VARIABLES LIHRES'":N+1: "A": N+L 

IF G=0 THEN 650 

FRINT "VARIARLES DE SURPFLUS'"sN+L+13 "A" C 
IF L=M THEN 850 

FRINT "VARIABLES ARTIFICIELLES"; C2+1s:"A":C 
Z=Mi 

GOSUER 1070 
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690 
700 
710 
720 
750 
740 
75C 
769 
770 
780 
790 
800 
810 
820 
850 
8440 
850 
860 
870 
880 
890 
900 
919 
920 
90 
940 
50 
360 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1990 
1100 
1110 
1120 
1150 
1140 
1150 
1160 
1170 
1175 
1180 
1190 
1200 
1210 
1220 


230 


1240 
1250 
1260 
1270 


FOR Ii=i TO M 

IF H(I1){=C2 THEN 8270 

IF ACI1,C1)#=.00001# THEN 750 
FRINT 
FRINT "FAS DE SOLUTION FOSSIBLE" 
GOTO 1670 
FOR Ji=i TO C2? 

IF ABS(A(I1,J1))#=.00001# THEN 810 
R=11 
S=J1 
GOSUE 13270 
J1=C2 
NEXT Ji 
NEXT I1 
ME=M 
GOSUER 1070 
FRINT 
FRINT "REFONSES: " 
FRINT "VARIABLES FRIMALES: " 
FRINT "VARIABLES", "VALEUR" 

FOR J=1 TO C2? 

FOR I=1 TO M 

IF H(1):>J THEN 940 

FRINT J,FNR7(A(I,C1)) 

I=M 
NEXT I 
NEXT J 

IF L=O THEN 1020 
FRINT "VARIABLES DUALES:" 
FRINT "VARIABLE", "VALEUR" 
FOR I1=1 TO L 

PRINT I, FNR7(-ZXA (MZ, N+I)) 
NEXT I 

FRINT 

PRINT "VALEUR DE LA FONCTION OBJECTIF "3FNR7 (-ZKA(M2,C1)) 
GOTO 1670 

REM — ROUTINE D°OFTIMISATION 
REM — D'ABORD AFFRECIER LES COLONNES 
F=-,00001%# 

FOR J=1 TO C? 

IF A(MZ,J)>=F THEN 1120 

S=J 

F=A(MS, J) 

NEXT J 

IF F=-.00001# THEN 1500 

GOSUER 1180 

GOSUER 1260 

GOTO 1070 

REM — TROUVER MAINTENANT QUELLE(S) VARIABLE (S) 
REM — QUITTE(CENT) LA BASE 
QO=1D+38 

FOR I=1 TO M 

IF A(I,S)<=.00001# THEN 1240 
IF ACI,C1)/A(I,S);=0Q THEN 1740 
R=I 

Q=A(I,C1)/A(I,S) 

NEXT I 

RETURN 

IF G=1D+38 THEN 1790 

GOSUB 1320 
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1280 RETURN 
1290 FRINT "LA SOLUTION N’EST FAS RORNEE" 
1:00 GOTO 1670 
1310 REM - EFFECTUER LE FIVOTEMENT 
1520 F£<A(R,S) 
1350 FOR Iz=i TO ME 
1240 IF I=R THEN 1410 
1250 FOR J=1i TO Ci 
1560 IF J=S THEN 1400 
1370 A(I,J)=A(I,J)-A(I,S)XA(R,J)/P 
1:80 IF ARS(A(I,J)):=.00001# THEN 1400 
1390 A(I,J)=0 
1400 NEXT J 
1410 NEXT I 
1470 FOR J=1 TO Ci 
1450 A(R,J)=A(R, J)/F 
1440 NEXT J 
1450 FOR I=1 TO ME 
1460 A(I,S)=0 
1470 NEXT I 
1480 A(R,S)=1 
1490 HR) =S 
1500 RETURN 
1510 REM — *% AVANT DE LANCER LE FROGRAMME, FAIRE CE QUI SUIT * 
1520 KREM INTRODUIRE LES COEFFICIENTS DES CONTRAINTES "£&", 
1530 REM - "az" ET "5" DANS LES INSTRUCTIONS DATA A FARTIR DE 
1540 REN LA LIGNE 1610, UNE INSTRUCTION DATA SEFAREE FAK 
1545 RENM CONTRAINTE (1610 À 1640 DANS NOTRE EXEMFLE). 
1550 REM ENSUITE, ENTRER LES CONSTANTES DES CONTRAINTES 
1560 KREM DANS UNE INSTRUCTION DATA SUIVANT CELLES DES 
1570 REM - COEFFICIENTS, EN RESFECTANT LE MEME ORDRE 
373 REM -— (LIGNE 1650 DANS NOTRE EXEMFLE) . 
1580 REM PUIS, À LA LIGNE SUIVANTE, TAFER LES COEFFICIENTS 
1590 KREM DE LA FONCTION ORJECTIF DANS UNE INSTRUCTION DATA 
1595 KREM (LIGNE 1660 DANS NOTRE EXEMFLE). 
1600 KREM LES VALEURS AYANT UNE FARTIE DECIMALE DOIVENT 
1605 KEM ETRE SUIVIES D'UN # 
1610 DATA 1,1,1,1,1 
1620 DATA .9#,.60#4,.95#H,.7#4,.7T# 
16739 DATA .05#4,.05#4,.0O24#,.74,.7# 
1640 DATA .05#,.15#,.07#,0,0 
1650 DATA 100,83,14,5 
1660 DATA 6.1:#,7.127#4,5.685#4,4.57#,5.96# 
1670 FRINT 5: FRINT "XX4XX FIN DU FROGRAMME Xkxx*xx" 
OF 


Exemple : 


Un fabricant souhaite produire 100 kg d’un alliage contenant 83 % de plomb, 14 % de 
fer et 3 % d’antimoine. Pour cela, il dispose de cinq alliages dont les compositions (en %) et 
les prix (au kilogramme) sont indiqués dans le tableau 1. 


122 


Tableau 1 


Remarquez que le problème se ramène au système d’équations suivant : 


X, + X2 + X3 + X4 + x; = 100 
.90x, + .80x, + .95x; + .70x, + .30x; = 83 
.05x, + .05x, + .02x, + .30x, + .70x; = 14 
.0Sx, + .15x, + .03x; + + 

6.13x, + 7.12x, + S.85x, + 4.57x, + 3.96x; 


WI 
N © 
B. 
=] 
ee 


Comment doit-il combiner ces alliages pour obtenir le produit désiré à un coût mini- 
mum ? 


Voir les remarques : 
lignes 1510 à 1606 


FROGRAMMATION LINEAIRE 


ENTRER: 1=MAXIMISATION ,; —-1=MINIMISATION® -1 
NOMBRES DE CONTRAINTES, NOMBRES DE VARIABLES®T 4,5 
NOMBRES DE CONTRAINTES: INFERIEURES, EGALES, SUFERIEURES? 0,4,0 


VOS VARIABLES DE 1 AS 
VARIARLES ARTIFICIELLES 6 À 9 


REFONSES : 
VARIABLES FRIMALES: 
VARIABLES VALEUR 
2 
.-826087 
de 7391304 


VALEUR DE LA FONCTION OBJECTIF 544.8276087 


XXXXYX FIN DU FROGRAMME XXXXX 
Ok 


avec l’aimable collaboration de : Harold Hanes 
Earlham College 


Richmond, Indiana 
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ADDITION, SOUSTRACTION, 
MULTIPLICATION PAR SCALAIRE 
DE MATRICES 


Ce programme additionne ou soustrait deux matrices ou bien multiplie une matrice par 
un scalaire donné. On doit indiquer la valeur de chaque élément de chaque matrice. Pour 
effectuer des additions ou des soustractions, les dimensions des deux matrices doivent être 
identiques. 


10 KEY OFF : CLS :COLOR 0,7,0 

20 FRINT "ADDITION, SOUSTRACTION, MULTIPLICATION FAR UN SCALAIRE" 
30 COLOR 7,0,0 

40 PRINT 

SO FRINT “1= ADDITION" 

60 FRINT "Z= SOUSTRACTION" 

70 FRINT "3= MULTIPLICATION FAR UN SCALAIRE" 
80 REM - CHOIX DE L'OFERATION 

90 DEFDEL A-Z : DEFINT D,I,J,K,R,C 

100 FRINT "QUELLE OFERATION (NUMERO) "; 

110 INFUT D 


120 FRINT 

170 REM — TEST : AUTRE QUE MULTIFLICATION®? 
140 IF D£#7 THEN 170 

150 FRINT "VALEUR DU SCALAIRE"; 


160 INFUT S 

170 FRINT "DIMENSION DE LA MATRICE (LIGNE, COLONNE) ‘; 
180 INFUT R,C 

190 REM - ADAFTER LES TABLEAUX AUX DIMENSIONS DES MATRICES 
200 DIM A(R,C),B(R,C) 

210 REM - BOUCLE FOUR ENTRER LES COEFFICIENTS 

220 REM - SOUSTRACTION : MATRICE 1 - MATRICE 2 

230 PRINT 

240 FOR K=1 TO 2 

250 FRINT USING "MATRICE #:"3:F 

260 FOR J=1 TO KR 

270 FRINT 

280 FRINT "LIGNE"; 

290 FOR I=1 TO C 

3200 FRINT “ COLONNE"; 
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IF KH=? THEN 340 

INFUT A(J,I) 

GOTO 2:50 

INFUT KH(J,1) 

NEXT I 

NEXT J 

FRINT 

REM — MULTIFLICATION : UNE SEULE MATRICE EST UTILISEE 
IF D=3 THEN É=? 

NEXT EH 

FREM - DE 450 A 540 EXECUTION DE L’OFERATION CHOISIE ET 
REM —- IMPRESSION DE LA MATRICE RESULTANTE 

FOR J=1 TO K 

FOR I=1 TO C 

IF D#:? THEN 470 

H(J,1)=H(J,1) 

IF D=3 THEN 500 

FRINT A(J,I)+EH(J,1)3:" 

GOTO 510 

FRINT ACJ,IDXS;"  ": 

NEXT I 

REM — AVANCER FOUR IMPRIMER LA LIGNE SUIVANTE 
FRINT 

NEXT J 

FRINT 

REM - RELANCE OÙ ARRET DU FROGRAMME ? 

FRINT "AUTRES DONNEES 7? (1=OUI, O=NON)‘"; 
INFUT D 

IF D=1 THEN CLESR : GOTO 90 

PRINT : FRINT "XXxxxx%x FIN DU FROGRAMME KKkk*kx" 


Exemple : 


Trouver la somme des matrices ci-dessous, puis multiplier par 3 la matrice résultante. 


il 0 -] -5 -1 2 
8 à 6 -.1 0 
-1 2 0 3 4 -2 


SDDITION, SOUSTRACTION, MULTIFLICATION F8R UN SCALAIRE 
1= ADDITION 
2= SOUSTRACTION 
MULTIFLICATION FAR UN SCALAIRE 
QUELLE OFERATION (NUMERO)? 1 
DIMENSION DE LA MATRICE (LIGNE, COLONNE)? 3,3 


MATRICE 1: 


LIGNE 1 
COLONNE® 1 
COLONNE® 0 
COLONNE® —-1 
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LIGNE ? 
COL.ONNE 
COLONNE”? 
COLONNE 


LIGNE 53 
COLONNE”® 
COLONNE”® 
COLONNE”® 


MATRICE € 


LIGNE 1 
COLONNE”® 
COLONNE ? 
COLONNE? 

LIGNE ? 

COLONNE"® 

COLONNE® 

COLONNE"® 


LIGNE 3 
COLONNE® 
COLONNE® 
COLONNE"® 


4 
fi 


> 
# 


AUTRES DONNEES 7? 
QUELLE OFERATION 


VALEUR DU 
DIMENSION 


MATRICE ji 


LIGNE 1 
COLONNE"? 
COLONNE”® 
COLONNE”? 


Cu) 
Fos 


LIGNE 
COL.ONNE® 
COLONNE”? 
COLONNE? 

LIGNE 3 
COL.ONNE? 
COLONNE”? 
COLONNE”® 


AUTRES 


XKXXXX FIN 


DONNEES 7? 


— 0 


(1=QUI, 
(NUMERO)? 3 


SCALAIRET 5 


DE LA MATRICE (LIGNE, 


—b 
(1=QOUI, 


DU FROGRAMME XXXX*X 
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O=NON)? 1 


COLONNE) 


O=NON) 7 © 


LA 


3 
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MULTIPLICATION DE MATRICES 


Ce programme multiplie deux matrices. La première matrice est multipliée par la 
seconde. On doit indiquer les éléments de chaque matrice. 


Pour que cette opération soit possible, il faut que le nombre de lignes de la première 
matrice soit égal au nombre de colonnes de la seconde matrice. 


10 KEY OFF : CLS :COLOR 0,7,0 
20 FRINT "MULTIPLICATION DE MATRICES" 
COLOR 7,0,0 
DEFDEL A-Z : DEFINT 1,J,K,R,C 
FRINT 
FRINT "DIMENSIONS DE LA MATRICE 1 (LIGNE, COLONNE) "; 
INFUT R1,C1 
PRINT "DIMENSIONS DE LA MATRICE 2 (LIGNE, COLONNE)":; 
INFUT R2,C2 
REM - LE NOMBRE DE COLONNES DE LA MATRICE i DOIT ETRE 
ÿ REM — EGAL AU NOMERE DE LIGNES DE LA MATRICE 
IF Ci=R? THEN 150 
5 REM - DES MATRICES 
FRINT CHRS (7) "MULTIFLICATION IMPOSSIBLE! CHANGER LES DIMENSIONS" 
GOTO 60 
REM - LES TABLEAUX A() ET EH) DOIVENT ETRE AUX DIMENSIONS 
REM - DES MATRICES 
DIM A(RI1,C1), R(R2,C2) 
PRINT 


REM -— ENTRER LES COEFFICIENTS DES MATRICES 


FRINT "MATRICE 1:" 
FOR J=1i TO Ki 
FRINT 

PRINT "LIGNE": 9J 
FOR I=1 TO Ci 
FRINT "COLONNE":1I;: 
INFUT A(J,1) 

NEXT I 

NEXT J 

PRINT 

FRINT "MATRICE 2:" 
FOK J=1i TO KE 
FRINT 

PRINT "LIGNE":;J 
FOR I=i TO CE 
PRINT "COLONNE":1;: 
INPUT EH(J,1) 

NEXT I 

NEXT J 
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FRINT 


REM 
REM 
FOR 
FOR 
S=0 
FOR 


— EXECUTION DE LA MULTIFLICATION DE MATRICES 


— IMPRESSION DE LA MATRICE RESULTANTE 


I=i TO K1 
J=i TO C2 


Ez=1 TO C1 


S=S+A(I,HI)XR(E, J) 


NEXT FE 
FRINT Ss"  "s 

NEXT J 

REM — AVANCER L'UNITE DE SORTIE FOUR 
REM — DE LA LIGNE SUIVANTE 

FRINT 

NEXT I 
FRINT:FRINT 


L’ IMFRESSION 


XXAXEXX FIN DU FROGRAMME XXKXXKXKX" 


Exemple : 


Multiplier la matrice 1 par la matrice 2. 


2 2: = 0° —2 
2 “1 2 
0 2 1 
24-—1 1 4 
3 0 -1 
2 1 2 


MULTIFLICATION DE MATRICES 


DIMENSIONS DE LA MATRICE 1 
DIMENSIONS DE LA MATRICE € 


(LIGNE, COLONNE) 7 S,S 

(LIGNE, COLONNE)?T S,Z 
MATRICE 1: 
LIGNE 1 
COLONNE 
COLONNE 
COLONNE 
COLONNE 
COLONNE 


ns 


n+HATJ 
Ce 


£ 
Le, 


em BR it) 


LIGNE € 
COLONNE 
COLONNE 
COL.ONNE 
COLONNE 
COLONNE 


INmOom 


HA 
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LIGNE 3 
COLONNE 
COLONNE 
COLONNE 
COLONNE 
COLONNE 


mar 


MATRICE 


3 


LIGNE 1 
COLONNE 
COLONNE € 
COLONNE € 


LIGNE * 
COLONNE 
COLONNE 
COLONNE 


Arr 


LIGNE Z 
COLONNE 
COLONNE 
COLONNE 


LIGNE 4 
COLONNE 
COLONNE 2% 
COLONNE 5 Matrice 
produit 
LIGNE 5 
COLONNE 
COLONNE 
COLONNE 


ERSRS 


#1 


7 


XXXEXKX FIN DU FROGRAMME XXKXXXXX 
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10 


190 
200 
210 
220 
270 
240 
250 
260 
270 
280 
290 
F00 
310 
220 
Late 
240 
350 
760 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
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INVERSION 
D’UNE MATRICE CARRÉE 


Ce programme inverse une matrice carrée. Cette inversion est effectuée par une méthode 
modifiée d’élimination de Gauss-Jordan. 


ÉEY OFF : CLS :COLOR 0,7,0 
PRINT "INVERSION D'UNE MATRICE CARREE" 
COLOR 7,0,0 
DEFDRL A-Z7 : DEFINT I-L,FR 
FRINT 
REM — LA MATRICE EST CARREE; UNE SEULE DIMENSION À ENTRER 
FRINT "DIMENSION DE LA MATRICE": 

INFUT FÆ 
REM - DIM À ET DIM KR DOIVENT ETRE ADAFTEES AUX DIMENSIONS IX 
DIM ACRR),EHCR,R) 

FRINT 

FRINT "ELEMENTS DE LA MATRICE À INVERSER:" 
REM — ENTRER LES COEFFICIENTS DE LA MATKICE 
FOR J=i TO K 

FRINT 

FRINT "LIGNE'":7J 

FOR I=1 TO K 

FRINT "COLONNE"31I;: 

INFUT A(J,1I) 

NEXT I 

H(J,J)=1 

NEXT J 

REM — DE 240 A 3230 INVERSION DE LA MATRICE 
FOR J=1 TO K 

I=J-1 

I=I+i 

IF IR THEN 500 

IF A(I,J)<2%0 THEN 320 

GOTO 2860 

FRINT "MATRICE SINGULIERE" 

GOTO 6350 

FOR E=i TO K 

S=A(J,xH) 

A(J,H)=A(I,E) 

A(I,H)=S 

S=R{J,K) 

B(J,H)=R(I,E) 

H(I,H)=S 

NEXT EF 

T=1/A(J,9J) 

FOR F=1 TO K 

ACJ,H)I=TX*XA(J,F) 

B(J,K)=TXE(J,H) 

NEXT K 

FOR L=1i TO KR 

IF L=J THEN 520 

T=-A(L,9J) 
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480 FOR K=1i TO K 

49Q A(L,HI=A(L,E)+TXA(J.E) 
300 R(L,KH)=BR(L,F)+TKR(J,K) 
910 NEXT EF 

920 NEXT L 

930 NEXT J 


340 FRINT 
930 REM — IMFRESSION DE LA MATRICE RESULTANTE 


360 FOR I=1i TO K 

370 FOR J=i TO K 

380 FRINT INT(R(T,J)X1000+.5)/10005" L 

390 NEXT J 

690 REM — AVANCER L'UNITE DE SORTIE FOUR IMPRIMER LA 
60 REM — LIGNE SUIVANTE 

610 FRINT 

620 NEXT I 

630 FRINT:FRINT UKXX#XKX FIN DU PROGRAMME XK#XXKKX" 


Exemple : 


Inverser la matrice : A 


INVERSION D'UNE MATRICE CÂRREE 
DIMENSION DE LA MATRICE? 4 
ELEMENTS DE LA MATRICE À INVERSER: 


LIGNE 1 
COLONNE 
COLONNE 
COLONNE 3 
COLONNE 


LIGNE 
COLONNE 
COLONNE 
COLONNE 23 
COLONNE 


LIGNE 3 
COLONNE 
COLONNE 
COLONNE 
COLONNE 


RAR 


LIGNE 4 
COLONNE 
COLONNE 
COLONNE 
COLONNE 


Matrice 
inversée 


Rite 


-619 —. 885 181 .O1S 
—. 188 -268 -009 -147 
1.421 —3.458 —4.571 —. AO 


mé SZ 1.019 s:299 


KXXKXXXX FIN DU FROGRAMME XKXXXX 
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OPTION 


Le Basic de l’'IBM PC permet l'échange des valeurs de deux variables. Celles-ci doivent 
être du même type (soit chaîne, soit simple précision, soit double précision. Les modifications 


du programme sont indiquées ci-après. Cette option n’a d’autre intérêt que de réduire la 
longueur du programme. 


1 REM -— OFTION 340,570 DELETE 250,550, 7:60, 5:80 
19 KEY OFF : CLS :COLOK 0,7,0 
20 FRINT "INVERSION D'UNE MATRICE CARKREE" 
30 COLOR 7,0,0 
40 DEFDBL A-Z : DEFINT I-L,R 
30 FRINT 
60 REM — LA MATRICE EST CÂRREE: UNE SEULE DIMENSION À ENTRER 
70 PRINT "DIMENSION DE LA MATRICE'!": 
60 INFUT K 
90 REM — DIM À ET DIM KH DOIVENT ETRE ADAFTEES AUX DIMENSIONS 
100 DIM ARR) ,HCR,K) 
119 FRINT 
120 FRINT "ELEMENTS DE LA MATRICE À INVERSER: " 
150 REM — ENTRER LES COEFFICIENTS DE LA MATRICE 
140 FOK J=1i TO K 
150 FKRINT 
160 FRINT "LIGNE"; J 
170 FOR I=1 TO K 
FRINT "COLONNE'"3:TI: 
INFUT A(J,1) 
NEXT TI 


H(J,d)=i 
NEXT J 
REM — DE 240 À 530 INVERSION DE LA MATRICE 


FOR J=1 TO K 

I=J-i 

I=I+1 

IF IR THEN 300 

IF A(I,J)4%#0 THEN Z3E0Q 
GOTO 260 

FRINT "MATRICE SINGULIERE" 
GOTO 650 

FOR Ezi TO KR 


SWAF ACJ,H),ACI,H) 
Ne pas oublier : 
SWAF H(J,K),RCI.K) DELETE 330 
DELETE 350 
DELETE 360 
NEXT H DELETE 380 
T=1/A(J,J) 


FRINT: PRINT MX#4KXAX FIN DU FROGRAMME ÆKXKXXxXx" 
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PERMUTATIONS ET COMBINAISONS 


Ce programme calcule le nombre de permutations et combinaisons de N objets pris par 
D à la fois. 


KEY OFF : CLS : COLOR 0Q,7,0 
PRINT "FERMUTATIONS ET COMRINAISONS" 
COLOR 7,0,0 
DEFDEHL A-2Z : DEFSNG I,J 
PRINT 
FRINT "(ENTRER OO FOUR ARRETER LE FROGRAMME) " 
FRINT "NOMBRE TOTAL D'ORJETS"; 

INFUT N 

IF N=Q THEN 400 

FRINT "TAILLE DU SOUS-GROUFE"; 

INFUT D 

REM — LA TAILLE DU SOUS-GROUFE NE FEUT ETRE SUFERIEURE 
REM — A CELLE DU GROUFE 

IF DEN THEN 180 

PRINT CHR#&(7) "SOUS-GROUFE TROF GRAND" 
FRINT 

GOTO 70 

REM - DE 180 330 CALCUL DES FERMUTATIONS 
F=i 

C=i 

FOR IEN-D+1 TO N 

REM —- NE FAS DEFASSER LA CAFACITE DE LA MACHINE 
IF 1.7E+28/13=F THEN 270 

FRINT 

FRINT "PLUS DE 1.7 E+58 FERMUTATIONS" 
FRINT 

I=N:F=-1: GOTO 2:80 

F=FXxI 

NEXT I 

IF F=-1 THEN 70 

REM — CALCUL DES FACTORIELLES INTERMEDIAIRES FOUR 
REM — LES COMRINAISONS 

FOR J=2 TO D 

C=C*XxJ 

NEXT J 

PRINT 

FRINT F3; "FERMUTATIONS" 

PRINT F/C; "COMRINAISONS" 

FRINT 

REM — RELANCE DU PROGRAMME 

GOTO 70 

FRINT:FRINT "XXKX#X FIN DU PROGRAMME KKXKXXKxxX" 


Exemples : 


Combien peut-on faire de permutations et de combinaisons avec les 26 lettres de l’alpha- 
bet, en en prenant cinq à la fois ? 


De combien de manières différentes 12 personnes peuvent-elles s’asseoir sur un banc, en 
sachant qu’il n’y a de place que pour 2 personnes ? 


FERMUTATIONS ET COMBINAISONS 


(ENTRER © FOUR ARRETER LE FROGRAMME) 
NOMERE TOTAL D'ORJETS?T 26 
TAILLE DU SOUS-GROUFE? 5 


7893600 FERMUTATIONS 
65780 COMERINAISONS 


NOMRRE TOTAL D'OBJETS? 127 
TAILLE DU SOUS-GROUFE? 2 


122 FERMUTATIONS 
66 COMERINAISONS 


NOMBRE TOTAL D'ORJETS? © 


XXXX*X FIN DU FROGKAMME 
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TEST U DE MANN-WHITNEY 


Ce programme effectue le test U de Mann-Whitney sur des échantillons de deux popula- 
tions. 


Une restriction concernant l’entrée des données est que le plus grand des deux échantil- 
lons doit être introduit en premier. 


10 KEY OFF : CLS :COLOR 0,7,0 

20 FRINT "TEST U DE MANN-WHITNEY" 

240 COLOR 7,0,0 

40 FRINT 

SO DIM N(2) 

60 REM - ENTRER LES DEUX ECHANTILLONS 

70 FOR I=1 TO 2 

80 FRINT "ECHANTILLON"; lg": "3 

90 FRINT “ TAILLE": 

1009 INFUT NCI) 

REM - ADAFTER LES DIMENSIONS DE X(M), ET X(N) 
IF I=1 THEN DIM X(N(1))2,Y(NÇCI)) 

REM - LES DONNEES LES FLUS GRANDES DOIVENT ETRE ENTREES EN FREMIER 
IF N(1):=N(2) THEN 170 

FRINT CHR$(7) "ENTRER LES DONNEES LES FLUS GRANDES EN FREMIER" 
CLEAR:DIM N(2): GOTO 70 

FOR J=1 TO N(I) 

FRINT “  DONNEE":J: 

INFUT Y(J) 

NEXT J 

REM — CLASSER CHAQUE ECHANTILLON 

FOR J=1 TO N(I) 

FOR K=1 TO N(I)-J 

IF YCH)2Y(E+1) THEN SUWAF Y CH), YCE+1) 

NEXT 

NEXT J 


re 
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FRINT 

REM -— TRANSFERER LE FREMIER ECHANTILLON DANS LE TABLEAU X 
IF I=2 THEN 350 

FOR J=i TO N(1) 

X(J)=Y(J) 

NEXT J 

NEXT I 

REM — ADDITIONNER LES RANGS 

R=1 

I=0 

J=QO 

I=1+1 

J EN! + 1 ® 

IF I:N(1) THEN 660 

IF J:N(?) THEN 700 

IF X(I)2Y(J) THEN 7900 

IF Y(J)EX(I) THEN 670 

REM — DE 450 À 650 TRAITEMENT DES SCORES DES DEUX ECHANTILLONS 
Hz? 

M=I 

L=J 

R1=Z2XxR+1 

R=R+2 

I=1+1 

J=J+1 

IF I:N(1) THEN 560 

IF X(I)2:X(I-1) THEN 560 

I=1+1 

60T0 590 

IF JEN(R) THEN 46450 

IF Y{J)EEY(J-1) THEN 650 

J=J+1 

Ri=F1+K 

R=R+1 

H=E+1 

GOTO 520 

X9=X9+(I-M)XR1/F 

Y9=Y9+(J-L) XR1/K 

GOTO 400 

IF JiN(2) THEN 759 

YIF=Y9+KR 

J=J+1 

GOTO 720 

X9=X9+FR 

I=1+1 

R=KR+1 

GOTO 400 

FEM — UI=NOMERRE DE FOIS QU LE SCORE DE L'ECHANTILLON 1 
REM — FKECEDE DE CELUI DE L'ECHANTILLON 2 
UL=NÇ(1)XN(Z)+NCI)X(NC1)+1)/2-X9 

KEM — UZ=NOMBRRE DE FOIS OÙ LE SCORE DE L'ECHANTILLON 2 
REM — FRECEDE CELUI DE L'ECHANTILLON 1! 
UZ=NC(1)XN(2)+N(2)X(N(Z) +1) /2-Y9 

FRINT 

FRINT "PREMIER ECHANTILLON FRECEDANT, U ="sUi 
FRINT "SECOND ECHANTILLON FRECEDANT, U=";U2 
FRINT 5: FRINT "XKXXx*x*Xx FIN DU FROGRAMME #X#xxx" 
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Exemple : 


On a demandé à un groupe de dix femmes et à un groupe de dix hommes de noter le goût 
d’un dîner congelé « télévision » avec une échelle de notes allant de 1 à 10. La table 
ci-dessous donne les résultats. Compter le nombre de fois où la notation des femmes est 
inférieure à celle des hommes et réciproquement. 


femmes 
hommes 


RUN 
TEST U DE MANN-WHITNEY 


ÉCHANTILLON 
DONNÉE 1 
DONNEE 
DONNEE Z 
DONNEE 4 
DONNEE 5 

DONNEE 6 

7 
8 
9 
1 


TAILLE? 10 


-) 


…) 


…j 


DONNEE 
DONNEE 
DONNEE 
DONNÉE 


DUO 


0 ? 4 


ECHANTILLON 
DONNEE 
DONNEE 
DONNEE 
DONNEE 
DONNEE 


TAILLE®F 10 


DONNEE 
DONNEE 
DONNEE 
DONNEE 


Ce 


7) +) 4) 9 4) +) +) +) +) 3 


"Ur onmmoNr 


3 
3 


1 
= 
4 
5 
DONNEE 6 
7 
8 
9 
1 


) 


[el 


FREMIER ECHANTILLON FRECEDANT, U = 70 
SECOND ECHANTILLON PRECEDANT, Uz 30 


XXXXX FIN DU FROGRAMME XXXxxx*x 
OH 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
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MOYENNE, VARIANCE, 
ECART-TYPE 


Ce programme calcule la moyenne arithmétique, la variance et l’écart-type de données 
groupées ou non groupées. Les données peuvent représenter la population entière ou juste 
un échantillon. 


Les formules employées sont : 


e moyenne = 


Zlu 


e variance = 32 = N. moyenne? 
N ou N-1I (*) 


e écart type = V variance 


avec S = somme des valeurs observées (affectées de leur fréquence d’apparition dans le cas 
de données groupées) 
S2 = somme des carrés des valeurs observées (affectés de la fréquence d’apparition des 
valeurs dans le cas de données groupées) 
N = nombre d’observations 


(*) N cas d’une population, N — 1 cas d’un échantillon 


HEY OFF : CLS :COLOR 0,7,0 

PRINT "MOYENNE, VARIANCE, ECART-TYFE" 

COLOR 7,0,0 

FRINT 

FRINT "QUELLE METHODE? (O0=POPULATION, 1=ECHANTILLON)"; 
INFUT S 

FRINT "FORME DES DONNEES? (O=GROUFEES, 1=NON GROUFEES) "; 


INFUT K 
FRINT "NOMBRES D’OBSERVATIONS"; 


100 INFUT N 

110 R=Q 

120 M=0 

1:0 F=Q 

140 IF KH=1 THEN 310 

150 REM - FOUR DES DONNEES GROUPEES 
160 FOR I=1 TON 

170 PRINT "ARTICLE, FREQUENCE":1; 
180 INFUT A,H 

190 REM — CUMUL DES VALEURS ENTREES 
200 R=R+EXA 

210 REM — CUMUL DES VALEURS INTERMEDIAIRES POUR LA VARIANCE 
220 F=F+E 

230 M=M+EBXxA"2 

240 NEXT I 
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REM - CALCUL DE LA MOYENNE ET DE LA VARIANCE 
R=R/F 

V= (M-FXR*2) / (P-S) 

REM - IMPRESSION DES RESULTATS 

GOTO 420 

REM - FOUR DES DONNEES NON GROUFEES 

FOR I=1i TON 

FRINT "ARTICLE": 1: 

INFUT D 

REM - CUMUL DES VALEURS ENTREES 

F=P+D 

REM - CUMUL DES VALEURS INTERMEDIAIRES POUR LA VARIANCE 
M=M+D"2 

NEXT I 

REM — CALCUL DE LA MOYENNE ET DE LA VARIANCE, IMPRESSION 
R=F/N 

V= (M=NKR®2) / (N-S) 

FRINT 

REM - IMPRESSION DES RESULTATS 

FRINT "MOYENNE", "VARIANCE", "ECART-TYFE" 
FRINT R,V,SOR(V) 

FRINT 

REM - RELANCE OÙ ARRET DU FROGRAMME 7? 

FRINT "AUTRES DONNEES? (1=OUI, O=NON)"; 
INFUT S 

IF S=1 THEN 40 

FRINT:FRINT "#XXXXX FIN DU FROGRAMME *X*x**4" 


Exemples : 


Dans le salon d’un hôtel, se trouvent dix personnes âgées de 87, 53, 35, 42, 9, 48, 51, 60, 
39 et 44 ans. Quelle sera la moyenne, la variance et l’écart-type des âges de l’ensemble de la 
population de l’hôtel en utilisant les personnes du salon comme échantillon ? 

Trouver la moyenne, variance et écart-type des âges de pots de fromage blanc dans un 
supermarché. Le tableau ci-dessous donne la distribution des âges de 50 pots. Supposez que 
cette table représente la totalité des pots du supermarché. Que se passe-t-il s’il ne s’agit que 


d’un échantillon ? 
âge SoNINRIEIRLRS 
quantité [solos rf3] 


pots de fromage blanc 


MOYENNE, VARIANCE, ECART-TYFE 


QUELLE METHODE? (O=POFULATION, 1=ECHANTILLON)?7 1 
FORME DES DONNEES?F (O=GROUPEES, 1=NON GROUFEES)? 1 
NOMBRES D'ORSERVATIONS?T 10 

ARTICLE F 

ARTICLE 


Lx 


? 47 Premier exemple 


ARTICLE 
ARTICLE 
ARTICLE 
ARTICLE 
ARTICLE 


NEURAE 


 —  —_—_—_—  — ——————— " "  ————— 


ARTICLE 8 7 60 
ARTICLE 9 7 39 
ARTICLE 10 7 44 


MOYENNE VARIANCE ECART-TYFE 
46.86 389.7233 19.741166 


AUTRES DONNEES? (1=OUI, O=NON)? 1 


QUELLE METHODE? (O=FOPULATION, 1=ECHANTILLON)? O0 
FORME DES DONNEES? (O=GROUFEES, 1=NON GROUFEES)? © 
NOMERES D'OBSERVATIONS? 6 

ARTICLE, FREQUENCE 
ARTICLE, FREQUENCE 
ARTICLE, FREQUENCE 
ARTICLE, FRÉQUENCE 
ARTICLE, FRÉQUENCE 
ARTICLE, FREQUENCE 


2 


2 Cn 


Deuxième exemple, 
cas d'une popul/ation 


vUBRUANE 
ANT 


TURAHR 


MOYENNE VARIANCE ECART-TYFE 
2.76 2.571601 1.607671 


AUTRES DONNEES? (1=QOUI, O=NON)? 1 


QUELLE METHODE?F (O=FOPFULATION, 1=ECHANT: LON)? 1, 
FORME DES DONNEES? (O=GROUFEES, 1=NON GRG IFEES)? © 
NOMBRES D'’ORSERVATIONS?T 6 

ARTICLE, FREQUENCE 1 7 1,15 

ARTICLE, FREQUENCE 
ARTICLE, FREQUENCE 
ARTICLE, FRÉQUENCE 
ARTICLE, FREQUENCE 
ARTICLE, FREQUENCE 


cas d'un échantillon 


CAO REAT)J 


Ca) 
F2 
? 4, Deuxième exemple, 
en) 
7 


MOYENNE VARIANCE ECART-TYFE 
2. 78 2.624082 1.619902 


AUTRES DONNEES? (1=OUI, O=NON)?7 © 


XKXKXXX FIN DU FROGRAMME KXXKkkxkx*x 
Ok 
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MOYENNE ET ÉCART 
GÉOMÉTRIQUES 


Ce programme calcule la moyenne et l’écart géométriques d’un ensemble de données. 


10 FÉEY OFF : CLS :COLOKR 0,7,0 

20 FRINT "MOYENNES ET ECARTS GEOMETRIQUES" 

50 COLOR 7,0,0 

40 FRINT 

JO FRINT "ÇCENTRER © FOUR ARRETER LE FROGRAMME) " 
60 FRINT "NOMBRES D'ORSERVATIONS"; 


70 INFUT N 

80 KEM — TEST DE FIN DE FKROGKRAMME 

90 IF N=O THEN 280 

190 REM — CALCULER QUELLE RACINE A UTILISER 
119 F=1i/N 

120 Mzl 

150 FOR I=1i TO N 

140 FRINT "ARTICLE": I;: 

150 INFUT D 

160 KEM — CALCULER LA MOYENNE ITERATIVEMENT 
170 M=MXD'"F 

180 REM -— CUMULER LE TERME INTERMEDIAIRE FOUR L'ECART 
199 OQ=Q0+L0G (D) *? 

200 NEXT I 

210 KREM — CALCUL DE LA DEVIATION 

220 R=EXF (SOR(Q/ (N-1)-—(N/ (N-1) XLOG (M) 2) )) 
250 FRINT "MOYENNE GEOMETRIQUE ='":M 

240 FRINT "ECART GEOMETRIQUE =!"3:K 

250 FRINT 

260 REM — KRELANCE DU FROGRAMME 

270 GOTO 60 

280 FRINT : FRINT "XKKkkx*X FIN DU FROGRAMME XX##x" 


Exemple : Trouver la moyenne et l’écart géométriques de 3, 5, 8, 3, 7, 2. 


MOYENNES ET ECARTS GEOMETRIQUES 


(ENTRER O FOUR ARRETER LE FROGRAMME) 
NOMERES D’OBSERVATIONS?T 6 

ARTICLE Pr 3 
ARTICLE 
ARTICLE 
ARTICLE 
ARTICLE 
ARTICLE : 
MOYENNE GEOMETRIQUE = 4.14068 
ECART GEOMETRIQUE = 1.727691 


+ NN 4 © On CL 


CUbAtre 


à 


NOMBRES D'OBSERVATIONS?F © 


XXXXX FIN DU FROGRAMME XXXXX 
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DISTRIBUTION BINOMIALE 


Ce programme calcule la probabilité d'obtenir un nombre donné de réussites sur un 
nombre donné d’épreuves de Bernoulli. On doit indiquer les probabilités de réussite d’une 
seule épreuve. 


ÉEY OFF : CLS :COLOR 0,7,9 
FRINT "DISTRIBUTION RINOMIALE" 
COLOR 7,0,0 
DEFDEL Â-Z : DEFSNG I,J 
FRINT 
DIM MZ) 
FRINT "(ENTRER © FOUR ARRETER LE FROGRAMME) " 
FRINT "NOMBRE D'ESSAIS"; 
DEFDEL A-7 : DEFSNG I.,J 
INFUT N 
IF N=Q THEN Zz0O 
FRINT "NOMBRE EXACT DE SUCCES"‘; 
INFUT X 
FRINT "FRORARILITE DE SUCCES": 
INFUT F 
REM — CALCUL DES FACTORIELLES 
M(1)=N 
M(2)=X 
M CZ) =N-X 
FOR I=i TO 3 
IF M(I)=0 THEN 279 
A=i 
FOR J=1 TO M(I) 
A=AXJ 
NEXT J 
M(I)=LOG(A) 
NEXT I 
REM — CALCUL DE LA FROBABILITE EN UTILISANT LES 
REM —- FACTORIELLES CALCULEES 
R'=EXF(M(1)-M{2)-M(Z) +XXxLOG(F) +(N-X) XLOG(1-F)) 
FRINT "FRORABILITE DE'";X3'"SUCCES FOUR"; N3; "ESSAIS 
FRINT 
GOTO 80 
FRINT:FRINT "XXXXX FIN DU FROGRAMME XKXxxkx*x" 


Exemples : 


Quelle est la probabilité d’obtenir trois faces sur cinq jets d’une pièce de monnaie non 
pipée ? 


Quelle est la probabilité que sur cinq jets d’un dé non pipé, un un (1) apparaisse deux 
fois ? 
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DISTRIEUTION BINOMIALE 


(ENTRER © FOUR ARRETER LE FROGRAMME) 
NOMBRE D'ESSAIS?T 5 

NOMRRE EXACT DE SUCCES?F 3 

FRORARILITE DE SUCCES? .5 

FROBARILITE DE 3 SUCCES FOUR 5 ESSAIS 


NOMEHRE D'’'ESSAIST 5 

NOMRRE EXACT DE SUCCESF 2 

FRORARILITE DE SUCCES? .1666866667 
FRORARILITE DE 2? SUCCES FOUR 5 ESSAIS 


NOMHRE D'ESSAIS?T 0 


XXXXX FIN DU FROGRAMME X#XXxX*X 
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.1607511 


52 


DISTRIBUTION DE POISSON 


Ce programme calcule la probabilité d’un événement arrivant un nombre donné de fois 
en utilisant la distribution de Poisson. On doit indiquer la fréquence attendue de l’événe- 
ment. 


HEY OFF : CLS :COLOR 0,7,0 
FRINT "DISTRIBUTION DE FÔÜISSON" 
COLOR 7,0,0 
DEFDEL A-Z : DEFSNG I-K 
FRINT 
FRINT "(ENTRER O FOUR ARRETER LE FROGRAMME) " 
FRINT "FREQUENCE CALCULEE"“; 
INFUT L 
REM — ARRET DU FROGRAMME? 
IF L=O THEN 250 
FRINT "FREQUENCE DU TEST"; 
INFUT X 
REM — CALCUL DE LA FACTORIELLE 
A=1 
FOR I=1 TO X 
A=AXI 
NEXT I 
REM - CALCUL DE LA FROBABILITE 
A=LOG (A) 
A'!=EXF (-L+X*LOG (L) -A) 
FRINT "PRORABRILITE DE":;X:"EVENEMENT (G)=";A! 
FRINT 
REM - RELANCE DU FROGRAMME 
GOTO 70 
FRINT:FRINT XXXXX FIN DU PROGRAMME Xkkkk" 


Exemple : 


On injecte un sérum à 2 000 personnes. La probabilité pour qu’une seule personne quel- 
conque ait une réaction défavorable est de 0.001 . On peut donc s’attendre à ce que deux 
(0.001 x 2 000 = 2) personnes souffrent d’une telle réaction. Quelle est la probabilité pour 
que quatre personnes aient une réaction défavorable ? Et pour une seule personne ? 


DISTRIEUTION DE FOISSON 


(ENTRER © FOUR ARRETER LE FROGRAMME) 
FREQUENCE CALCULEE?T 2 

FREQUENCE DU TEST? 4 

FROÉHABILITE DE 4 EVENEMENT (S)= 9.0223%48E-07 


FREQUENCE CALCULEE?T 2 


FREQUENCE DU TEST? 1 
FROBABRILITE DE 1 EVENEMENT (S)= .2706705 


FREQUENCE CALCULEE?F © 


XXXXX FIN DU FROGRAMME XXXXxX* 
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DISTRIBUTION NORMALE 


Ce programme calcule la probabilité et la fréquence de valeurs données sur une courbe 
de distribution normale standard. On peut utiliser des variables non standard si l’on connaît 
la moyenne et l’écart-type. 


X 
Figure 1. — Distribution normale standard 
La zone ombrée représente la probabilité de x ; y donne la fréquence de x. 
La probabilité normale est donnée de façon approchée par la formule suivante : 


probabilité : À 2 r(ait + a,f2 + a;,l3) + € (x) 
2 


avec : a; = 0.4361836 
a; = —0.1201676 
a; = 0.9372980 


r = (e-*/2) (2x) '? 
t = (1+0.33267 x) ! 
le (x)| < 107° 


HEY OFF : CLS :COLOR 0,7,0 
FRINT "DISTRIEUTION NORMALE" 
COLOR 7,0,0 
DEFDEL A-Z : DEFSNG I,H 
FRINT 
FRINT "(ENTRER O=STANDARD, 1=NON STANDARD) “ 
PRINT "QUEL TYFE DE VARIABLE"; 
INFUT S 
IF S=0 THEN 150 
FRINT "MOYENNE ‘: 
INFUT M 
FRINT "ECART TYFE“: 
INFUT S 
GOTO 160 
S=1 
FRINT 
FRINT "(FOUR ARRETER LE PROGRAMME ENTRER X=99999)" 
FRINT "X= "; 
INFUT X 
REM - ARRET DU FROGRAMME 7? 
IF X=99999! THEN 360 
X=(X-M) /S 
REM - CALCUL DE LA FREQUENCE (COORDONNEE Y) 
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240 R=<EXF(-XXX/2) /2.50662682746# 
250 FRINT "FRÉQUENCE = "; CSNG (KR) 
260 Z=X 


270 REM — AFFROXIMER LA FROBARILITE (SURFACE SOUS LA COURHE) 
280 T=1/(1+.33267XARS(X)) 

2970 T=1-RX(.4361836XT-.1201676XT"2+.937298XT"5) 

3200 REM — AJUSTER LES VARIABLES NEGATIVES 


310 IF Z:=O THEN 330 

320 T=i-T 

330 FRINT "FRORARILITE ="3;CSNG(T) 

340 FRINT 

350 GOTO 180 

360 FRINT:FRINT "XXKkxXx FIN DU FROGRAMME Kkkkxkx" 


Exemple : 


Le poids moyen des étudiants mâles d’une université est de 68 kg, avec un écart-type de 
7 kg. Si les poids sont distribués normalement, quelle est la probabilité qu’un étudiant pèse 
entre 68 et 82 kg ? Et entre 59 et 68 kg ? 


DISTRIEUTION NORMALE 


(ENTRER O=STANDARD, 1=NON STANDARD) 
QUEL TYFE DE VARIAHLE® 1 

MOYENNE® 150 

ECART TYFE?F 15 


(FOUR ARRETER LE FROGRAMME ENTRER X=99999) 
= 7 180 

FREQUENCE =  5.:99097E-02 

FROBABILITE = .9772412 


X= 7 130 
FREQUENCE = .1640101 
FROBARILITE = 9.120191E-02 


xX= 7 99999 


XXXXYX FIN DU FROGRAMME XXXXX 
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10 
20 
T0 
40 
50 


60 


79 
80 
99 
100 FRINT "CHI-2"; 

110 INFUT W 

120 REM - R=LE FKRODUIT AU DENOMINATEUR 
1310 R=1 
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DISTRIBUTION X° 


Ce programme calcule la valeur de la partie droite pour des points d’une courbe de dis- 
tribution X2. On doit indiquer la valeur de X? et le nombre de degrés de liberté. 


D. 


x? 
Figure 1. — Distribution X? 


La zone ombrée représente la valeur de la partie droite de #2. La fonction de distribution 
X2 est calculée au moyen des formules suivantes : 


avec v impair, 


ossi à (X(v#A2.e 2-2 NU 
valeur de la partie droite = 1 1-4 5. X?7r 


avec y pair, 


2 — x2/2 
valeur de la partie gauche = 1 — REE— Z 


avec y = nombre de degrés de liberté : 


CO (X? m 


2-14 LE, G+5.6+9... 6+2m 


Puisque dans le calcul de Z la sommation ne peut pas être étendue à l’infini, on l’arrêtera 
lorsque le terme suivant sera inférieur à un seuil de précision fixé. La précision du calcul est 
limitée à environ 10? 


Nota : X est la lettre grecque ”’khi”. 


KEY OFF : CLS :COLOR 0,7,0 

FRINT "DISTRIBUTION CHI-2" 

COLOR 7,0,0 

DEFDBL A-Z : DEFSNG I 

PRINT 

FRINT "(ENTRER © FOUR ARRETER LE FROGRAMME) “ 
FRINT "DEGRES DE LIBERTE"; 

INFUT V 

IF V=0 THEN 360 
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FOR I=V TO Z STEF -? 
R=RXI 
NEXT I 
REM — E=LE FRODUIT AU NUMERATEUR 
KH=EWT CINT((V+1)/2))XEXF(-W/2) /R 
REM —- LE FACTEUR FI EST UNIQUEMENT UTILISE LORSQUE LE 
REM — DEGRE DE LIBERTE EST IMFAIR 
IF INT(V/2)=V/27 THEN 240 
J=SOR(2/W/3%.14159205:5994#) 
GOTO 250 
REM — DE 240 À 320 CALCUL DE L (FACTEUR DE SOMMATION) 
J=i 
Lai 
M=1 
Y=V+T 
M=MXW/V 
REM — TEST DE FIN DE SOMMATION 
IF M£.0000001 THEN 3Zz0Q 
L=L+M 
GOTO 270 
FRINT USING "VALEUR DE LA FARTIE DAOITE= #.H#HHHHH#HH# "5 L—JXHXL 
FRINT 
GOTO 70 
260 FRINT:FRINT "X#XXXX FIN DU PROGRAMME Xxkxkx" 


Exemple : 

Sur un groupe de 168 personnes se plaignant d’insomnies, on a donné des somnifères à 
54 d’entre elles et des placebos à toutes les autres. Plus tard, on leur a demandé si les médi- 
caments les avaient aidées à dormir. La statistique du X? de cette étude a été calculée à 
2,571108 avec un degré de liberté. Quelle est la valeur de la partie droite ? 


DISTRIEUTION CHI-2 

(ENTRER O FOUR ARRETER LE PROGRAMME) 
DEGRES DE LIBERTE? 1 

ÉHI-CARRE®R 2,571108 

VALEUR DE LA FARTIE DROITE= 0.1088:148 
DEGRES DE LIBERTE? © 


XXXXX FIN DU FROGRAMME XKXXXX 


OPTION 

On peut souhaiter obtenir le centile plutôt que la valeur de la partie droite. Le centile 
correspond à la zone non ombrée de la courbe ci-dessus. Les changements nécessaires du 
programme sont donnés ci-dessous. 


1 FREM — OFTION 3350 
10 KEY OFF : CLS :COLOR 0,7,0 


20 FRINT "DISTRIBUTION CHI-2" 
30 COLOR 7,0,0 
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DEFDEL A-Z : DEFSNG I 
FRINT 
FRINT "(ENTRER © POUR ARRETER LE PROGRAMME) " 
FRINT "DEGRES DE LIRERTE"; 

INFUT V 

IF V=O THEN 360 

FRINT "CHI-2": 

INFUT W 

REM — R=LE FRODUIT AU DENOMINATEUR 

R=1 

FOR I=V TO ? STEF -2 

R=RXI 

NEXT I 

REM -— E=LE FRODUIT AU NUMERATEUR 
KH=W®Ç(INT((V+1)/2))XEXF(-W/2) /K 

REM —- LE FACTEUR FI EST UNIQUEMENT UTILISE LORSQUE LE 
REM — DEGRE DE LIBERTE EST IMFAIR 

IF INT(V/2)=V/2 THEN 240 
J=SQOR(2/W/3.14159265:599#) 

GOTO 250 

REM — DE 240 À 520 CALCUL DE L (FACTEUR DE SOMMATION) 
J=i 

L=i 

M=1 

V=V+2 

M=MXxW/V 

REM — TEST DE FIN DE SOMMATION 

IF M£.0000001 THEN 350 

L=L+M 

GOTO 270 

FRINT USING "CENTILEZ= #.HH#H#HHHH US JXEXL 
FRINT 

GOTO 70 

FRINT:FRINT "#KXXXXx FIN DU FROGRAMME XXxxxkx" 


Exemple : 
Quel est le centile de l’exemple précédent ? 


DISTRIEUTION CHI-® 


(ENTRER © FOUR ARRETER LE FROGRAMME) 
DEGFRES DE LIBERTE? 1 
CHI-27 2.571108 


CENTILE= 0.8911685? 


DEGRES DE LIBERTE? 0© 


XXXXX FIN DU PROGRAMME KXKkXkxx 
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TEST DU X° 


Ce programme détermine X? et le nombre de degrés de liberté associés à une table de con- 
tingence. La valeur de chaque élément et la contribution de chaque élément au X? sont 
imprimés aussi. 


L’instruction de dimension de la ligne 30 limite la taille de la table de contingence. On 
peut modifier cette taille de la manière suivante : 


30 DIM VI(R-C),V2(C),ACR) 


5= nombre de lignes de la table de contingence 
C= nombre de colonnes de la table de contingence 
Nota : X est la lettre grecque ”’khi”’. 


KEY OFF : CLS :COLOR 0,7,0 
PRINT “TEST DU CHI-2" 
COLOR 7,0,0 
DEFDBL A-Z : DEFINT I,J 
PRINT 
FRINT "NOMBRES DE LIGNES"; 

INEUT KR 
FRINT "NOMBRES DE COLONNES"; 

INFUT C 

REM - DIMENSION DES TABLEAUX 

DIM V1(RXC) ,V2(C) ,A(R) 

PRINT 

PRINT "TABLE DE CONTINGENCE: " 

REM — DE 250 À 320 ENTRER LA TABLE DE CONTINGENCE 
FOR I=1 TOR 

PRINT 

FRINT "LIGNE":I 

FOR J=1 TO C 

FRINT "ELEMENT":;J; 

INPUT V1CCI-1)*XC+J) 

NEXT J 

NEXT I 

PRINT 

REM - CUMUL DES FREQUENCES MARGINALES FOUR CHAQUE LIGNE 
L=0 

M=1 

FOR I=i TOR 

FOR J=1 TO C 

A(I)=A(I)+V1 (M) 

M=M+1 

NEXT J 

L=L+A(I) 

NEXT I 

N=RXC 

REM - CUMUL DES FREQUENCES MARGINALES FOUR CHAQUE COLONNE 
FOR I=1 TO C 

FOR J=I TO N STEP C 
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V2(I)=V2(I)+V1(J) 

NEXT J 

NEXT I 

Z=0Q 

FRINT "VALEUR ORSERVEE VALEUR ATTENDUE CONTRIBUTION CHI-2" 
FOR I=1 TO C 

FRINT "COLONNE":I 

FOR J=1 TO KR 

REM - F=VALEUR ATTENDUE DE L'ELEMENT 
F=A(J)XV2(I)/L 

X=1+(J-1)XC 

REM — Y=CONTRIBUTION KHI-CARRE DE CET ELEMENT 
Y=(ABS(VI(X)-P)-.5)"2/F 

REM —- Z=VALEUR TOTALE DE CHI-2 

Z=2+Y 

FUS=URHHHHRHRHHHRHEHH. HHHHHHHH" 

FRINT " "sVICX),2: PRINT USING FUS;F3:Y 

NEXT J 

NEXT I 

FRINT 

FRINT "DEGRES DE LIRERTE="3; (C-1)%Xx(R-—-1) ; TAB(26) ; 
FRINT USING "CHI-25"+PUS; 7 

FRINT:FRINT "XXXKXXX FIN DU FROGRAMME KKkkKkKkXx" 


Exemple : 


Dans un groupe de personnes se plaignant d’insomnies, on a donné à certaines des som- 
nifères et à d’autres des placebos. Plus tard, on leur a demandé si les médicaments les 
avaient aidées à dormir. Les résultats sont explicités dans la table ci-dessous. Quelle est la 
valeur de la statistique du X2 ? 


ont bien ont mal 
dormi dormi 
somnifères 44 10 
placebos 81 35 


TEST DU CHI-2 


NOMERES DE LIGNES? 2 
NOMBRES DE COLONNES?F €? 


TABLE DE CONTINGENCE: 


LIGNE 1 
ELEMENT 1 7 44 
ELEMENT 2 7 10 
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LIGNE ? 
ELEMENT 1 7 81 
ELEMENT 2 7 35 


VALEUR ORSERVEE VALEUR ATTENDUE CONTRIEUTION CHI-2 
COLONNE 1 


44 39.70588255 Q.356254901 

81 85.29411765 0.16977262 
COLONNE 

10 14.29411765 1.00708960 


35 30.70S88255 O.468813:8 


DEGRES DE LIBERTE= 1 CHI-2= 2.00721981 


XXXXXX FIN DU FROGRAMME KKXXK#XX 
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DISTRIBUTION t DE STUDENT 


Ce programme calcule les valeurs de la partie droite pour des points d’une courbe de dis- 
tribution f. On doit indiquer la valeur de f et le nombre de degrés de liberté. 


Figure 1. — Distribution t de Student 
La zone ombrée représente la valeur de la partie droite correspondant à f. 


Cette valeur est approchée au moyen de la formule suivante : 


valeur de la partie droite = n (1 +ax+ax2+a,x3+a,x4)-4+€E(x) 


avec : ai = 0.196854 


az = 0.115194 
as = 0.000344 
aa = 0.019527 


= (122 NN EE 2 4443 2 Pre 
. ( (: ni) ie 94 


le(x|< 2.5. 1074 


10 KEY OFF : CLS :COLOR 0,7,0 

20 FRINT "DISTRIEUTION T DE STUDENT" 
320 COLOR 7,0,0 

40 DEFDEL A-Z 

50 FRINT 

69 FRINT "(ENTRER O FOUR ARRETER LE FROGKAMME) " 
70 FRINT "VALEUR DE T'"'; 

80 INFUT T 

90 IF T=0 THEN 400 

100 FRINT "DEGRE DE LIBERTE": 

110 INFUT D 

120 X=1 


1:10 Y=1 


140 T=TXT 
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150 REM —- CALCULER EN UTILISANT L'INVERSE FOUR LES FAIBLES 
155 REM —- VALEURS DE T 

160 IF T<1 THEN 2190 

170 S=Y 

180 R=D 

190 Z=T 

“00 GOTO 240 

210 S=D 

220 KeY 

270 Z=1/T 

240 J=2/9/S 

250 E=2/9/KR 

260 REM — CALCUL UTILISANT LES FORMULES AFFROCHEES 
27Q L=ARS((1-FH)XZ"(1/3)-1+9J) /SOQR(EXZT (2/5) +J) 

280 IF R<4 THEN 320 

290 X=.25/ (1+LX(.196854+LX(.115194+LX(.000744+LKx.019527))))"4 
200 X=INT(XX100000!+,5)/100000! 

310 GOTO 350 

520 LeLX (1+.08XxL"4/R°5) 

3230 GOT 290 

240 REM — AJUSTER SI L'INVERSE À ETE CALCULE 

350 IF Ti=i THEN 370 

3260 X=1-X 

270 FRINT "VALEUR DE LA FARTIE DROITE"3X 

3680 PRINT 

390 GOTO 70 

400 FRINT:FRINT U#XXKXX FIN DU FROGRAMME XKx*xx*x" 


Exemples : 
Quelle est la valeur de la partie droite lorsque f est égal à 2,921 et qu’il y a 16 degrés de 
liberté ? 


Quelle est la valeur de la partie droite lorsque f est égal à 11,178 et qu’il y a 5 degrés de 
liberté ? 


DISTRIBUTION T DE STUDENT 


(ENTRER © FOUR ARRETER LE PROGRAMME) 
VALEUR DE T? 2.921 

DEGRE DE LIBERTE? 16 

VALEUR DE LA FARTIE DROITE .00487 


VALEUR DE T? 11.178 
DEGRE DE LIBERTE? 5 
VALEUR DE LA FARTIE DROITE .00071 


VALEUR DE TF © 


XXXXX FIN DU FROGRAMME XKXXXX 
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TEST DE DISTRIBUTION t 
DE STUDENT 


Ce programme calcule la statistique de t et le nombre de degrés de liberté d’une distribu- 
tion de Student. Les calculs peuvent être basés sur l’une des trois hypothèses ci-après. 


La première hypothèse suppose que la moyenne d’une population est égale à une valeur 
donnée. On doit entrer les éléments de l’échantillon et la valeur de la moyenne. 


Les deux autres hypothèses comparent deux populations. Dans les deux tests, les moyen- 
nes des deux populations sont égales mais les écarts-type peuvent être égaux ou différents. 
Pour ces hypothèses, on doit entrer les éléments de chaque échantillon. 


10 EEY OFF : CLS :COLOR 0,7,0 

20 FRINT "TEST DE DISTRIBUTION t DE STUDENT" 

30 COLOR 7,0,0 

40 FRINT 

70 GOSUE 80 : GOTO 110 

80 DEFDEL A-Z : DEFINT I,J,T 

90 DIM V(2),R(2),D(2),M(2) 

100 RETURN 

110 FRINT "TEST 1: MOYENNE=X" 

120 FRINT "TEST 2: MOYENNE=MOYENNE, ECART-TYFE=ECART-TYFE" 
130 PRINT "TEST 3: MOYENNE=MOYENNE, ECART-TYFE< *ECART-TYPE" 
140 FRINT "QUELLE HYFOTHESE"; 

150 INFUT T 


160 IF Tél OR T+3% THEN 110 

170 FRINT. 

180 REM - ENTRER 1 OÙ 2 ECHANTILLONS SELON L’HYFOTHESE 
190 FOR I=1 TO SGN(T-1)+1 


200 V(I)=0 

210 D(I)=0 

220 FKRINT 

250 FRINT "ECHANTILLON"sIs":" 

240 FRINT "  NOMERRE D'ELEMENTS"; 

230 INFUT K(1) 

260 REM — LIMITER LA TAILLE DE L'ECHANTILLON À F'(N, 2) 
265 REM -— AVEC N=TAILLE MAXIMALE DE L'ECHANTILLON 

270 IF I1=1 THEN DIM F(K(1),2) 

280 REM -— ENTRER LES FLUS GRANDES VALEURS EN FREMIER 
290 IF R(1):=R(Z) THEN 340 

200 FRINT CHR$ (7) "ENTRER LES FLUS GRANDES VALEURS EN FREMIER" 
310 ON T-1 GOTO 220,330 

3220 CLEAR:GOSUR 80:T=2:GOT0Q 190 

350 CLEAR:GOSUR 80:T=2:GO0TO 190 


EE = 


540 FOR J=i TO K(I) 

250 FRINT " ELEMENT" 3;9J;: 

260 INFUT F(J,1) 

370 REM -— CUMUL DES ECHANTILLONS 

280 V(I)=V(I)+F(J,I) 

390 D(I)=D(I)+F(J,I)TE 

400 NEXT J 

410 REM -— CALCUL DES VALEURS INTERMEDIAIRES 

420 M(I)=V(I)/RCI) 

430 V(T)=(D(I)-V(II)"2/R(I1))/(R(I)—-1) 

440 NEXT I 

450 FRINT 

460 ON T-1 GOTO 550,600 

470 REM — ENTRER LES VALEURS DONNEES FOUR LA FREMIERE HYFOTHESE 
480 FRINT "VALEUR DE LA MOYENNE"; 

49Q INFUT M 

900 KREM — CALCULER T ET LES DEGRES DE LIRERTE FOUR LA 
905 REM - FREMIERE HYFOTHESE 

010 A=(M(1)-M)XSQRIR(1) /V(1)) 

JEO B=R (1) -1 

330 GOTO 440 

540 REM — CALCULER T ET LES DEGRES DE LIRERTE FOUR LA 
545 REM — SECONDE HYFOTHESE 

JJO Az (M(1)-MCE))/SOR(1/RC1)+1/R C2) ) 

60 HER (1) +R (2) -2 

570 A=A/SORC(R(1)-1) KV(1)+(R(2)-1) KV (2)) /H) 

380 GOTO 640 

990 KREM -— CALCULER T ET LES DEGRES DE LIRHERTE FOUR LA 
39% REM -— TROISIEME HYFOTHESE 

B0Q Az (M(1)-M{2))/SORIV(I1)/RC1)+VC2) /RC2)) 

O10 Ez (VOL) /RO1L)+VC2) /RC2)) T2 

bEQ KH=H/ (VOL) /ROIT)TR/ (RL) +1) +CV CR) /RCDD)TE/ (RE) +1) )-2 
630 BEINT(B+.5) 

640 FRINT 

630 FRINT "VALEUR DE T='"5; CSNG (ARS (A) ) 

661 FRINT "DEGRES DE LIRERTE=":Ek 

670 FRINT:I:FRINT "XÆKXKKX FIN DU FROGRAMME XKXXXkx" 


Exemple : 
On a pris un échantillon de QI d’enfants, les résultats étant 101, 99, 120, 79, 111, 98, 


106, 112, 87 et 97. Calculer la statistique de f en supposant que la moyenne de la population 
est de 100. 


TEST DISTRIBUTION t DE STUDENT 


TEST MOYENNE=X 


TEST 2: MOYENNE=MOYENNE, ECART-TYFE=ECART-TYFE 
TEST ZT: MOYENNE=MOYENNE, ECART-TYPESECART-TYFE 
QUELLE HYFOTHESE® 1 
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ECHANTILLON 1 : 

NOMBRE  D'ELEMENTS? 
ELEMENT Fr 101 
ELEMENT 99 
ELEMENT 120 
ELEMENT 79 
ELEMENT 111 
ELEMENT 98 
ELEMENT 106 
ELEMENT 112 
ELEMENT 687 
ELEMENT 10 7 97 


en) +) +) 4) 4) +) +) +) 


1 
4 
d 
6 
7 
8 
9 


VALEUR DE LA MOYENNE? 100 


VALEUR DE T= ,26151Z 
DEGRES DE LIRERTE= 9 


XXHXXX FIN DU FROGRAMME #XX##XX 
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DISTRIBUTION F 


Ce programme calcule les valeurs de centile pour des valeurs données d’une courbe de 
distribution F. On doit indiquer la valeur de F, le nombre de degrés de liberté dans le numé- 
rateur et le nombre de degrés de liberté dans le dénominateur. 


0 F 


Fig. 1. — Distribution F. 
La zone ombrée représente le centile. 
La fonction de distribution F est approchée au moyen de la formule suivante : 
Centile = 1 — Tu —dy+@}y?+4;y3+a;}4)-4+ E(y) 


ad; = 0,196854 az — 0,000344 
a; = 0,115194 a4 = 0,019527 


y=(Fr"#(1- 2 Œf 2 2 + F23. 2 - 1/2 
9d2 9d: 9d: 9d2 


= nombre de degrés de liberté au numérateur 
nombre de degrés de liberté au dénominateur 


Il 


Se 
( 


|e OC) < 2.5 x 10-4 


10 KEY OFF : CLS :COLOK 0,7,0 

20 FRINT "DISTRIBUTION F" 

20 COLOR 7,0,0 

40 DEFDBL A-Z 

90 FRINT 

69 FRINT "ÇCENTRER © FOUR ARRETER LE FROGRAMME) " 

70 FRINT "VALEUR F3 

89 INFUT F 

90 IF Fzû THEN 420 

100 FRINT "DEGRES DE LIBERTE AU NUMERATEUR"; 

110 INFUT Di 

120 IF D1=0 THEN FRINT "ZERO N'EST FAS ADMIS":GOTO 100 
150 PRINT "DEGRES DE LIBERTE AU DENOMINATEUR"!"; 

INFUT D? 
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IF D2=0 THEN FRINT "ZERO N'EST FAS ADMIS":GOTO 150 
X=1 

REM — CALCULER EN UTILISANT L’'INVERSE FOUR LES 
REM —- FAIBLES VALEURS 

IF F£1 THEN 2350 

S=D1 

T=DE 

Z=F 

GOTO 

S=DE 

T=D1 

Z=1/F 

J=2/9/S 

S=2/9/T 

REM — CALCUL UTILISANT LES FORMULES AFFROCHEES 
Y=ABRS((1-H) KZ" (1/3) -1+J) /SOR(KXKXZT (2/35) +J) 

IF T£4 THEN 340 
X=.5/(1+YKX(.1976854+YX(.115194+YX(.000344+Y%X.019527))))"4 
X=INT(XK100000!+,5)/100000! 

GOTO 370 

Y=YX (1+.08XY"4/TT25) 

GOTO Z10 

REM — AJUSTER SI L'INVERSE À ETE CALCULE 

IF F=zl THEN 5:90 

X=1—X 

FRINT "CENTILE="3;1-—X 

FRINT 

GOTO 70 

FRINT:FRINT "XXX4X FIN DU FROGRAMME XXXXX*X" 


Exemples : 


Quel est le centile d’une courbe de distribution F lorsque F est égal à 0.474 et que les 
degrés de liberté sont de 1 et 18 ? 


Quel est le centile lorsque F est égal à 23.7 et que les degrés de liberté sont de 3 et 6 ? 


RUN 
DISTRIEUTION F 


(ENTRER © FOUR ARRETER LE FROGRAMME) 
VALEUR F7 .474 

DEGRES DE LIBERTE AU NUMERATEUR? 1 
DEGRES DE LIBERTE AU DENOMINATEUR® 
CENTILE= .49366 


VALEUR F7 23.7 

DEGRES DE LIBERTE AU NUMERATEUR?T 3 
DEGRES DE LIBERTE AU DENOMINATEUR? 6 
CENTILE= .99856 


VALEUR F7 Q 


X4XXX FIN DU FROGRAMME XXXXX 


OPTION 
On peut souhaiter calculer la valeur de la partie droite (soit l’aire de la zone non ombrée 
de la figure ci-après). Les changements nécessaires du programme sont donnés ci-après. 
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1 REM - OFTION 590 


10 EEY OFF : CLS :COLOR 9,7,0 
20 FRINT "DISTRIBUTION F" 


FRINT "VALEUR DE LA FARTIE DROITE=":;X 
FRINT 

GOTO 70 

FRINT:FRINT "XXKXX FIN DU FROGRAMME XXkxkx" 


Exemples : 


Quelle est la valeur de la partie droite d’une courbe de distribution F lorsque F est égal à 
0.474 et que les degrés de liberté sont de 1 et 18 ? 


Quelle est la valeur de la partie droite lorsque Fest égal à 23.7 et que les degrés de liberté 
sont de 3 et 6 ? 


DISTRIBUTION F 


(ENTRER © POUR ARRETER LE FROGRAMME) 
VALEUR F7? .474 
DEGRES LIBERTE AU NUMERATEURT 1 
DEGRES LIBERTE AU DENOMINATEUR? 
VALEUR LA FARTIE DROITE= .50464734 


VALEUR F7 27. 

DEGRES LIBERTE AU NUMERATEUR? 3 
DEGRES LIBERTE AU DENOMINATEUR®? 
VALEUR LA FARTIE DROITE= .00164 


VALEUR F7 © 


XXXXX FIN DU FROGRAMME XX4X% 
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COEFFICIENT 
DE CORRÉLATION LINÉAIRE 


Ce programme calcule le coefficient de corrélation entre deux variables. On suppose que 
la relation entre ces deux variables est linéaire. On doit indiquer les coordonnées d’un 
groupe de points constituant la droite de régression. 


10 EEY OFF : CLS :COLOR 0,7,0 
20 FRINT "COEFFICIENT DE CORRELATION LINEAIRE" 
30 COLOR 7,0,0 
40 DEFDEL A-Z : DEFSNG I 
50 FRINT 
60 FRINT "NOMBRE DE FOINTS": 
70 INFUT N 

IF N=O THEN 310 

IF N2? THEN 60 

J=Q 

Hz0 

L.=0 

M::0 

R=Q 

REM — ENTRER LES COORDONNEES DES FOINTS 

FOR I=1 TON 

FRINT "X,Y DU FOINT"31;: 

INFUT X,Y 

REM — CUMUL DES VALEURS INTERMEDIAIFRES 
200 J=J+X 
210 Ez=E+Y 
29 LEL+XXX 
ME=M+YXY 
R=R+XXY 
NEXT I 
REM — CALCUL DU COEFFICIENT, IMPRESSION 
R2'=(NKR-JXE) /SORÇCNKL-JKIJ) X (NXM-EXE) ) 
FRINT 
FRINT "COEFFICIENT DE CORRELATION =":;kR2! 
GOTO 50 
PRINT:FRINT "XXx#xx FIN DU FROGRAMME XXxxx" 
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Exemple : 


Les tailles de douze hommes et de leur fils sont données par la table ci-dessous. Quel est 
le coefficient de corrélation entre la taille des pères et la taille de leurs fils ? 


taille en centimètres 


COEFFICIENT DE CORRELATION LINEAIRE 


NOMBRE DE FOINTS? 12 


FOINT 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 
FOINT 


7 165,173 
7 160,168 
170,175 
163,165 
173,175 
157,168 
178,173 
? 168,165 
? 173,180 
10 7 170,170 
11 7 175,173 
12 7 180,178 


DLONVTURAHHR 


COEFFICIENT DE CORRELATION = .6910211 


XXXXX FIN DU FROGRAMME XXXXxX 
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RÉGRESSION LINÉAIRE 


Ce programme ajuste une droite sur un ensemble de points donnés en utilisant la 
méthode des moindres carrés. L’équation de la droite, le coefficient de détermination, le 
coefficient de corrélation et l’erreur-type de l’estimation sont imprimés. Lorsque la droite a 
été ajustée, on peut prévoir les valeurs de y en donnant les valeurs de x. 


10 KEY OFF : CLS :COLOR 0,7,0 
20 FRINT "REGRESSION LINEAIRE" 
30 COLOR 7,0,0 

40 DEFDRL A-Z : DEFSNG I 


50 FRINT 

60 FRINT "NOMBRE DE FOINTS CONNUS": 

70 INFUT N 

80 IF N=OQ THEN 500 

90 IF NET THEN FRINT "TROIS OÙ FLUS, SVF'":GO0OTO 60 

100 J=0 

110 Ez=0Q 

120 LæO 

130 M=0Q 

140 R2=0 

150 REM — EOUCLE FOUR ENTRER LES COORDONNEES DES FOINTS 
160 FOR I=1i TO N 

170 FRINT "X,Y DU FOINT'":I;: 

180 INFUT X,Y 

190 REM — CUMUL DES SOMMES INTERMEDIAIRES 

200 J=J+X 

210 EzE+Y 

220 LeL+XXX 

230 MEM+YXY 

240 REZRE+XXY 

250 NEXT I 

260 KREM -— CALCUL DES COEFFICIENTS DE LA DROITE 

270 B=(NXRE-EXJ) / (NXL-J*XJ) 

280 A=(E-EXJ) /N 

290 FRINT 

300 FRINT "F(X)=":CSNG (A): "+ CC": CSNG(H) 3 "X X D)" 

519 REM - CALCUL DE L'ANALYSE DE LA REGRESSION 

Z20 J=RX(R2-JXE/N) 

350 M=M-EXE/N 

340 EH=M-J 

350 FRINT 

360 R?E=J/NM 

370 FRINT "COEFFICIENT DE DETERMINATION (RK*2) =": CSNG (R2) 
580 FKRINT ‘" COEFFICIENT DE CORRELATION=":SOR(KR2) 
290 FRINT " ERREUR TYPE D’ESTIMATION=":SOR(E/ (N-2) ) 
400 FRINT 

410 REM — ESTIMER LES COORDONNEES Y DES FOINTS CORKESFONDANT 


415 REM — AUX COORDONNEES X ENTREES 
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FRINT "INTERPOLATION: (FAIRE X=0 FOUR ARRETER LE FROGRAMME) “ 
PRINT ,"X="; 

INPUT X 

REM - RELANCE OÙ ARRET DU PROGRAMME? 


IF X=0 THEN 50 

PRINT "Ye", CSNG (A+HXX) 

FRINT 

GOTO 430 

FRINT:FRINT "XKk#XxX FIN DU FROGRAMME *X#x*kxx" 


Exemple : 


La table ci-dessous donne les tailles et les poids de 11 étudiants mâles. Ajuster une droite 
sur ces points. Combien pèserait l’étudiant moyen pour des tailles de 178 et 183 cm ? 


taille (cm) Paso 185 | 163 |165 |155 | 17 


poids (kg) 


KEGRESSION LINERIRE 


NOMBRE DE FOINTS CONNUS? 11 

DU FOINT 1 180,7 
FOINT 2 7 185,83 
FOINT 163,70 
FOINT 165,76 
FOINT 155, 72 
FOINT 178,82 
FOINT 165,66 
FOINT 8 7 18%,95 
FOINT 9 ? 160,60 
FOINT 10 7 170,76 
FOINT 11 7 163,64 


LEONA 


Vos 


F(X)=-51.07S5635 +( .7385281 X*X X ) 


COEFFICIENT DE DETERMINATION (R*2)= .576777 
COEFFICIENT DE CORRELATION= .7594583 
ERREUR TYFE D'ESTIMATION= 6.768746 


INTERFOLATION: (FAIRE X=0Q FOUR ARRETER LE FROGRAMME) 
X=7 178 
Y== 80.823 


84.007501 


NOMERE DE FOINTS CONNUS? © 


XÆXXXX FIN DU FROGRAMME XXKXXKXX 
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19 
20 
30 
40 
50 
60 
70 
80 
90 
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RÉGRESSION LINÉAIRE MULTIPLE 


Ce programme trouve les coefficients d’une équation linéaire à plusieurs variables en uti- 
lisant la méthode des moindres carrés. L’équation prend la forme suivante : 


} = C+axX, +4xXi+...QnXn 


avec : y = variable dépendante 
c = constante 
a, 4... = coefficients des variables indépendantes X,, X3, ...Xn 


La constante et les coefficients sont imprimés. 


On doit indiquer les coordonnées x et y des points connus. Lorsque l’équation a été défi- 
nie grâce aux données entrées, on peut prévoir d’autres valeurs de la variable dépendante en 
fixant les valeurs des variables indépendantes. 


ÉEY OFF : CLS :COLOR 0,7,0 

FRINT "REGRESSION LINEAIRE MULTIFLE" 
COLOR 7,90,0 

CLEAR 

DEFDBL A-Z : DEFINT I-L,N,V 

FRINT 

FRINT "NOMBRES DE FOINTS CONNUS"; 
INFUT N 

IF N=Q0 THEN 1010 


100 IF N£3 THEN FRINT CHR$(7) "TROIS OÙ FLUS, SVF":GOTO 70 
110 REM - DIMENSIONNER LES TABLEAUX 
120 DIM X(N+1),S(N+1),T(N+1) , ACN+1, N+2) 


170 FRINT "NOMBRES DE VARIABLES INDEFENDANTES" ; 
140 INPUT V 


150 IF V+Ii25N THEN 180 

160 FRINT CHR$(7)"LE NOMBRE DE VARIABLES DOIT ETRE DIFFERENT": 
170 PRINT "D°AU MOINS 1 DU NOMBRE DE PFOINTS'":G0OTO 40 

180 IF V£=N THEN 210 

190 FRINT CHR$(7)"LE NOMBRE DE VARIABLES NE DOIT FAS ETRE * 
QUE CELUI DES FOINTS" 

200 GOTO 40 

210 X(1)=1 

220 FOR I=1 TO N 


165 


230 
240 
250 
260 
270 
280 
290 
500 
310 
320 
Late) 
335 
340 
350 
360 
370 
380 
390 
400 
410 
420 
450 
440 
450 
460 
470 
480 
490 
5Q0Q 
910 
520 
ET) 
340 
9930 
560 
570 
380 
590 
600 
610 
620 
650 
640 
650 
660 
670 
680 
699 
700 
710 
720 
7:30 
740 
750 
760 
770 
780 
790 
800 
810 


FRINT 

FRINT "POINT'"':sI 

FOR J=1i TO V 

REM — ENTRER LES VARIABLES INDEFENDANTES FOUR CHAQUE FOINT 
PRINT "  VARIAELE"39J;: 

INFUT X(J+1) 

NEXT J 

REM — ENTRER LA VARIABLE DEFENDANTE FOUR CHAQUE FOINT 
FRINT "  VARIARLE DEFENDANTE"; 

INFUT X(V+2) 

REM — REMPLIR LA MATRICE QUI SERA UTILISEE FOUR 
REM — L'AJUSTEMENT DE LA COUREHE 

FOR Ez=1i TO V+i 

FOR L=1i TO V+2 

A(KHL)=ACE,L)+X CH) XX CL) 

S(H)=A(KH, V+2) 

NEXT L 

NEXT KE 

S(V+2)=S(V+2)+X(V+2) 723 

NEXT I 

REM — DE 440 À 4670 AJUSTEMENT DE LA DROITE EN RESOLVANT LE 
REM — SYSTEME D'EQUATION DE LA MATRICE A() 
FOR I1=2 TO V+i 

T(I)=A(1,1) 

NEXT I 

FOR I=1 TO V+i 

FOR J=I TO V+i 

IF A(J,I1)2450 THEN 530 

NEXT J 

FRINT CHR$(7)'"FAS DE SOLUTION UNIQUE" 
GOTO 40 

FOR KHzi TO V+2 

SWAF A(CI.H),.A(J.H) 

NEXT KE 

Z=1/A(I,1) 

FOR E=zi TO V+2? 

AI,H)=ZXACI,E) 

NEXT KE 

FOR J=i TO V+i 

IF J=I THEN 660 

Z=-A(J,1) 

FOR K=i TO V+® 

ACJ,H)=ACJ,K)+ZXA(I,H) 

NEXT KH 

NEXT J 

NEXT I 

FRINT 

FRINT "COEFFICIENTS DE LA DROITE: " 

FRINT " CONSTANTE : "3: CSNG(A(1,V+2)) 

FOR I1=2 TO V+1 

FRINT "VARIABLE ("31-13"): "3:CSNG(A(I,V+2)) 
NEXT I 

F=0Q 

FOR I1=2 TO V+i 
F=P+ACI,V+2)X(S(I)-T(I)KS(1) /N) 

NEXT I 

R=S(V+2)-S(1)"2/N 

Z=R-F 

LEN-V-1 

I=F/V 
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820 
850 
840 
850 
860 
870 
880 
885 
890 
900 
910 
920 
FAT) 
940 
50 
S60Q 
970 
980 
990 


FRINT 

R2=F/R 

FRINT "COEFFICIENT DE DETERMINATION (R®2) ="; CSNG(KR2) 
FRINT "COEFFICIENT DE CORRELATION MULTIFLE ="; SQR(R2) 

FRINT " ERREUR-TYFE D'ESTIMATION ="; SQR(AKS(Z/L)) 
FRINT 

REM — ESTIMER LA VARIABLE DEFENDANTE 4 FARTIR DES 

REM — VARIARLES INDEFENDANTES ENTREES 

FRINT "INTERFOLATION: (ENTRER O FOUR ARRETER LE FROGRAMME) " 
F=f (1, V+2) 

FOR J=i TO V 

FKRINT "VARIABLE": 9J;: 

INFUT X 

REM - TEST DE FIN DE FROGRAMME 

IF X=0 THEN 40 

FEF+ACJ+L,V+Z) XX 

NEXT J 

FRINT "VARIABLE INDEFENDANTE=" ; CSNG (F) 

FRINT 


1900 GOTO 900 
1010 FRINT:FRINT "XKXXXX FIN DU FROGRAMME KXXKk#x" 


Exemple : 


La table ci-dessous donne l’âge, la taille et le poids de huit garçons. En prenant le poids 


comme variable dépendante, ajuster une droite à ces points. Evaluer le poids d’un garçon de 


REGRESSION LINEAIRE MULTIFLE 


NOMERES DE FOINTS CONNUS? 8 
NOMEHRES DE VARIABLES INDEFENDANTES® 


FOINT 1 
VARIABLE 1 7 8 
VARIABLE 2? 7 122 
VARIABLE DEFENDANTE®T 2? 


FOINT € 
VARIABLE 
VARIABLE : 
VARIABLE 


FOINT 3 
VARIABLE 
VARIABLE E 
VARIABLE DEPENDANTE® 2% 
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FOINT 4 
VARIABLE 1 7 10 
VARIABLE 2 7 150 
VARIABLE DEFENDANTE® 56 


FOINT 5 
VARIABLE 1 7 8 
VARIABLE ? 7 140 
VARIABLE DEFENDANTE®? 28 


FOINT 6 
VARIABLE 1 7 9 
VARIABLE ©? 7 1370 
VARIABLE DEFENDANTE®S 354 


FOINT 7 
VARIABLE 1 7 9 
VARIABLE ? 7 140 
VARIABLE DEFENDANTE® 50 


FOINT 8 
VARIABLE 1 7 7 
VARIABLE 2 7 127 
VARIABLE DEFENDANTE® 26 


COEFFICIENTS DE LA DROITE: 

CONSTANTE: -5. 889252 
VARIABLE ( 1 ): 1.601686 
VARIABLE ( ): .1650656 


à 
pa 


COEFFICIENT DE DETERMINATION  (R*2) 
COEFFICIENT DE CORRELATION MULTIFLE 
ERREUR-TYFE D'ESTIMATION = 


.-7119911 
-84:7956 
2.8:8494 


INTERFOLATION: 
VARIAELE 1 7% 7 
VARIABLE ? 7 129 
VARIARLE INDEFENDANTE= 


(ENTRER © FOUR ARRETER LE FROGRAMME) 


26.:5791 


VARIABLE 1 


0 


NOMBRES DE FOINTS CONNUS? © 


XXXXX FIN DU FROGRAMME XXXXX 
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RÉGRESSION DU Nième ORDRE 


Ce programme détermine les coefficients d’un polynôme du Nième ordre en utilisant la 
méthode des moindres carrés. Le polynôme se présente sous la forme suivante : 


Y = C+aX+aX2+ ax" 


avec : y = variable dépendante 
c = constante 
dj, 4 .….@, = coefficients des variables indépendantes x, x2, ...x" respectivement 


Les coefficients de l’équation, le coefficient de détermination, le coefficient de corréla- 
tion et l’erreur-type d’estimation sont imprimés. 


On doit indiquer les coordonnées x et y des points connus. Lorsque le polynôme a été 
calculé, on peut prévoir les valeurs de y pour différentes valeurs données de x. 


KEY OFF : CLS :COLOR 0,7,0 
PRINT "REGRESSION DU NIEME ORDRE" 
COLOR 7,0,0 

CLEAR 

DEFDEL A-Z : DEFINT D,N,I-L 
FRINT 

FRINT "DEGRE DE L°EQUATION‘: 
INFUT D 


IF D=Q THEN 940 

IF D£2 THEN PRINT CHR$(7)"2 OÙ FLUS, SVF'":GOTO 70 
FRINT "NOMBRES DE FOINTS CONNUS": 

INFUT N 

IF N£S THEN PRINT CHR#(7)"5 OÙ FLUS, SVF'":GOTO 110 


IF D<N-1 THEN 180 
FRINT CHR$(7)"LE NOMBRE DE FOINTS NE FEUT ETRE INFERIEUR AU": 
PRINT "DEGRE DE L'EQUATION":GOTO 70 | 
REM -— DIMENSION DES TABLEAUX 
DIM A(2XD+1),R(D+1,D+2),T(D+2) 
ACLIEN 
REM — ENTRER LES COORDONNEES DES FOINTS 
FOR I=i TON 
FRINT "X,Y DU POINT":1: 
INPUT X,Y 
REM - LES LIGNES 250-330 REMPLISSENT LES MATRICES AVEC 
245 REM — UN SYSTEME D°EQUATIONS 
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290 FOR J=? TO ZxD+i 
260 A(J)=A(IJ)+X"(J-1) 
279 NEXT J 
280 FOR KHz1 TO D+i 
290 RCE, D+B)E=TCE)+YXKXT(E-1) 
300 T(H)I=T(E)+YXXT(E-1) 
310 NEXT E 
220 T(D+2)=T(D+2) +Y"2 
250 NEXT I 
340 REM — LES LIGNES 250-600 RESOLYENT LE SYSTEME 
345 RENM - D'EQUATIONS DES MATRICES 
250 FOR J=1i TO D+i 
360 FOR E=1i TO D+i 
370 R(J,H)=ACJ+E-1) 
380 NEXT EE 
290 NEXT J 
400 FOK J=1 TO D+i 
410 FOR E=J TO D+i 
420 IF R(KH,J)E50 THEN 460 
450 NEXT KE 
440 FRINT CHR$(7)"FAS DE SOLUTION UNIQUE" 
450 GOTO 40 
460 FOR I=1i1 TO D+? 
470 SUWAF R(J,I),R(E, I) 
480 NEXT I 
490 Z=1/R(J,9J) 
300 FOR I=i TO D+? 
910 R(J,I)=ZXR(J,1I) 
5209 NEXT I 
330 FOR Ez=1 TO D+i 
540 IF E=J THEN 590 
9NO Z=-KR(E,J) 
S60Q FOR I=1 TO D+? 
70 R(ESI)=ER(ES I) +ZKXR(J,1I) 
580 NEXT I 
990 NEXT KE 
600 NEXT J 
610 FRINT 
620 FRINT " CONSTANTE ='"3CSNG(R(1,D+2)) 
6350 REM - IMPRIMER LES COEFFICIENTS DE L'EQUATION 
640 FOR Jz1i TO D 
50 FRINT J;'"COEFFICIENT DE DEGRE =";CSNG(R(J+1,D+2)) 
66 NEXT J 
670 FRINT 
680 REM — CALCULER L'ANALYSE DE LA REGRESSION 
690 FzQ 
700 FOR J=? TO D+i 
710 F<F4+R(J,D+2) X(T(J)-ACJ)XT(1)/N) 
720 NEXT J 
750 Q=2T(D+2)-T(1)"2/N 
740 Z=0-F 
750 L=N-D-1 
760 FKINT 
770 KR2=F/0Q 
780 FRINT "COEFFICIENT DE DETERMINATION (RT2) =": CSNG (R2) 


790 FRINT " COEFFICIENT DE CORRELATION =": SQR(R2) 
800 FRINT " ERREUR-TYFE D'ESTIMATION =";SQK(AKS(Z/L)) 


810 FRINT 

820 KREM — CALCUL DE LA COORDONNEE Y FOUR UNE 

G25 REM - COORDONNEE X ENTREE 

830 FRINT "INTERFOLATION: (ENTRER © FOUR RELANCER LE FROGRAMME) " 


RE —————————"—"— © ————— —— ——— _ ———— 
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840 F=R(1,D+2) 

850 FRINT ,"X ="; 
860 INFUT X 

870 IF X=0 THEN 40 
880 FOR J=1 TO D 


890 FaeF+R(J+1,D+2) KX7J 

900 MEXT J 

910 PRINT "Y ="; CSNG(F) 

929 FRINT 

93:30 GOTO 840 

940 FRINT:PFRINT XXKXX FIN DU FROGRAMME XXKXK4X" 


Exemple : 


La table ci-dessous donne les distances d’arrêt (distance correspondant au temps de réac- 
tion plus distance de freinage) d’une voiture à différentes vitesses. Evaluer la distance 
d’arrêt à 100 kilomètres à l’heure. 


vitesse (km/h) 


distance d’arrêt (m) 


REGRESSION DU NIEME ORDKE 


DEGRE DE L'EQUATIONT 2 
NOMBRES DE FOINTS CONNUS? 6 
X,Y DU FOINT 1 7 30,54 

X,Y DU FOINT 2 7 45,88 

X,Y DU FOINT 3 7 60,127 

X.Ÿ DU FOINT 75,204 

X,Y DU FOINT 90,287 

X,Y DU FOINT 


Le) 
Ca 


bit 


Fr 110,424 


CONSTANTE = 57.6918 
1 COEFFICIENT DE DEGRE =-.5590741 
2 COEFFICIENT DE DEGRE = .0370077 


COEFFICIENT DE DETERMINATION (RTE) = .9999949 
COEFFICIENT DE CORRELATION 5: .9599975 
ERREUR-TYFE D'ESTIMATION = .40294 


INTERFOLATION: (ENTRER © FOUR RELANCER LE FROGRAMME) 
X =? 100 

Y = 351.8214 
000 


DEGKE DE L'EQUATION?F © 


ÆXXXX FIN DU FROGRAMME XXXXX 
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RÉGRESSION GÉOMÉTRIQUE 


Ce programme ajuste une courbe géométrique à un ensemble de points en utilisant la 
méthode des moindres carrés. La fonction de la courbe, le coefficient de détermination, le 
coefficient de corrélation et l’erreur-type d’estimation sont imprimés. 


On doit indiquer les coordonnées x et y des points connus. Lorsque la courbe a été ajus- 
tée, on peut prévoir les valeurs de y pour des valeurs de x données. 


10 KEY OFF : CLS :COLOR 0,7,0 
20 FRINT "REGRESSION GEOMETRIQUE" 
T0 COLOR 7,0,0 
40 DEFDBL A-2Z 3: DEFINT IN 
50 FRINT 
60 FRINT "NOMBRE DE FOINTS CONNUS (O=ARRET) ": 
79 INFUT N 
80 IF N=O THEN 510 
90 IF N£3 THEN FRINT CHR#(7)"3 OÙ FLUS, SVF'":GOTO 6Q 
190 J=0 
119 E=0 
120 L=0 
150 Mz=OQ 
140 K2=0 
150 REM — BOUCLE FOUR ENTRER LES COORDONNEES DES FOINTS 
160 FOR I=1 TO N 
170 FRINT "X,Y DU POINT": I: 
180 INFUT X,Y 
190 REM — CUMUL DES VALEURS INTERMEDIAIRES 
200 Y=LOG(Y) 
219 X=LOG(X) 
220 J=J+X 
BIO E=K+Y 
240 LaeL+XXxX 
2950 M=M+YXY 
260 RE=RE+XKXY 
270 NEXT I 
280 REM - CALCULER ET IMFRIMER LES COEFFICIENTS DE L'EQUATION 
290 H=(NXRE-EXJ) / (NkL—-JXkJ) 
300 A=(E-BRXJ)/N 
310 FRINT 
FRINT "F(X)="3EXP (A) 3 "KX"": CSNG(R) 
REM — CALCUL DE L'ANALYSE DE LA REGRESSION 
J=HX (K2-JXxFH/N) 
M=M-EXE /N 
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360 KH=M-J 
370 FRINT 


380 R2=J/M 

290 FRINT "COEFFICIENT DE DETERMINATION (R°*2) =": CSNG (R2) 

400 PRINT " COEFFICIENT DE CORRELATION ="; SOK(R2) 

410 PRINT " ERREUR TYFE D'ESTIMATION =°";:SOR (ARS (KH/ (N-—2) )) 
420 FRINT 

4530 REM — ESTIMER LA COGRDONNEE Y À FARTIR DE LA COORDONNEE X 


440 PRINT "INTERFOLATION: (FAIRE X=0 FOUR RELANCER LE FROGRAMME) " 
450 PRINT ,"X=": 

460 INFUT :X 

47Q IF X=0 THEN 50 

480 PRINT ,"Y="3EXP CA)KXTE 

490 FRINT 

500 60T0 450 

S10 PRINT:PRINT "XXKkKX FIN DU PROGRAMME KkKk&xxXx" 


Exemples : 

La table ci-dessous donne les pressions d’un gaz mesurées à différents volumes lors 
d’une expérimentation. La relation entre la pression et le volume d’eau d’un gaz est donnée 
par la formule suivante : 

PK =C 
P = pression 
V = volume 
Cet K sont des constantes 
Cette formule peut être réécrite sous la forme géométrique normalisée : 
P = CV-K 


Notez que l’exposant est négatif, pour tenir compte des exposants négatifs calculés par le 
programme. 


Ajuster une courbe géométrique aux données et évaluer la pression de 1 500 cm: de gaz. 


1447 1968 3073 ES 


pression 2,12 1,38 0,738 


REGRESSION GEOMETRIQUE 


€ DE FOINTS CONNUS (O=ARRET)7 6 
? 920,4.02 
? 995,3.59 
1200, 2.76 
1447,2.12 
1968, 1.38 
3073,0.738 


F(X)= 58145.9 XxX®-1.404032 
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COEFFICIENT DE DETERMINATION (R*2) = .9999951 
COEFFICIENT DE CORRELATION -7999975 
ERREUR TYPE D’ESTIMATION 1.5971652E-0Z 


INTERFOLATION: (FAIRE X=0 FOUR RELANCER LE PROGKAMME) 
=7 1500 


Y= 2.019158 


X=7 0 


NOMBRE DE FOINTS CONNUS (O=ARRET)? © 


XXHXXX FIN DU FROGRAMME XXKk#x 
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RÉGRESSION EXPONENTIELLE 


Ce programme trouve les coefficients de la fonction d’allure exponentielle. La fonction 
se présente sous la forme : 


J(x) = aerx 
a et b étant les coefficients calculés. 


Les coefficients de la fonction, le coefficient de détermination, le coefficient de corréla- 
tion et l’erreur-type d’estimation sont imprimés. On doit indiquer les coordonnées x et y des 
points connus. Lorsque la courbe a été ajustée, on peut prévoir des valeurs de y pour des 
valeurs données de x. 


ÉEY OFF : CLS :COLOR 0,7,0 

FRINT "REGRESSION EXFONENTIELLE" 

COLOR 7,0,0 

DEFDEL A-Z : DEFINT I,N 

FRINT 

FRINT "NOMBRE DE FOINTS CONNUS (O=ARRET) ": 
INFUT N 

IF N=0O THEN 500 

IF N£3 THEN FRINT "3 OÙ PLUS, SVF":GOT0 60 
J=0 


KH=Q 
L=O 


M=O 

R2=0 

REM — BOUCLE FOUR ENTRER LES COORDONNEES DES FOINTS 
FOR 1=i TON 

FRINT "X,Y DU POINT'":I1: 

INFUT X,Y 

REM — CUMUL DES VALEURS INTERMEDIAIRES 
Y=LOG (Y) 

J=J+X 

E=E+Y 

L=eL+XXX 

M=M+YXY 

RE=RE+XXY 


175 


NEXT I 

REM — CALCULER ET IMPRIMER LES COEFFICIENTS DE L'EQUATION 
B= (NKXRZ-EXJ) / (NXL-JXJ) 

A=(E-EBXJ) /N 

PRINT 

FRINT "FCX)="SEXF (A) "Ke" (Ms CSNGCEH) EUX OX D" 

REM — CALCUL DES VALEURS DE LA TABLE DE LA REGRESSION 
J=R*X (R2-JXxH/N) 

ME=M-EXE/N 

E=M-J 

FRINT 

2=J /M 


FRINT "COEFFICIENT DE DETERMINATION (K*2) ='"3CSNG(R2) 


FRINT " COEFFICIENT DE CORRELATION ="; SOKR(R2) 

FRINT " ERREUR TYFE D'ESTIMATION =";SCQR(ARS (K/ (N-2))) 
FRINT 

REM — ESTIMER LA COORDONNEE Y À FARTIR DE LA COOURDONNEE X 
FRINT "INTERFOLATION: (FAIRE X=0 FOUR RELANCER LE FROGRAMME) " 
FRINT ,"X="; 

INFUT X 

IF X=Q THEN 50 

PRINT ,"Y="3EXF (A) XEXF (RXX) 

FRINT 

GOTO 440 

FRINT:FRINT "X#XXXX FIN DU FROGRAMME X#XkXxx" 


Exemple : 
La table ci-dessous donne le nombre de bactéries présentes dans une culture à différents 


instants. Ajuster une courbe exponentielle à ces données et évaluer le nombre de bactéries 
après 7 heures. 


25 38 58 89 135 206 315 


REGRESSION EXPONENTIELLE 


DE POINTS CONNUS (O=ARRET)? 7 
FOINT 1 7 0,25 

POINT 7 1,38 

FOINT 2.58 

FOINT 3,89 

FOINT 4,135 

FOINT 3, 206 

FOINT 6,315 


4 
5 
6 
7 


24.996166 +*e*( .42223751 X X ) 
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COEFFICIENT DE DETERMINATION (R*2) -7999956 
COEFFICIENT DE CORRELATION -7999968 
ERREUR TYFE D'ESTIMATION 2.338002E-035 
INTERFOLATION: (FAIRE X=0 POUR RELANCER LE FROGRAMME) 
X=? 7 
Y= 480.0B66 


X=7? Q 


NOMBRE DE FOINTS CONNUS (O=ARRET)? © 


XHXXX FIN DU FROGRAMME XKXxXxx 
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FIABILITÉ D’UN SYSTÈME 


Ce programme calcule la fiabilité d’un système en fonctionnement, sujet à des pannes 
d’usure et de hasard (intempestives). On doit indiquer la durée de fonctionnement du 
système ainsi que la durée d’utilisation (usure) et le taux de pannes de chaque composant du 
système. 


10 KEY OFF : CLS :COLOR 0,7,0 

20 FRINT "FIABILITE D'UN SYSTEME" 

30 COLOR 7,0,0 

40 DEFDEL A-Z =: DEFINT I,N 

SO FRINT 

60 FRINT "(ENTRER © FOUR ARRETER LE FROGRAMME) “ 
70 FRINT "DUREE DE FONCTIONNEMENT EN HEURES": 
80 INFUT T 

90 REM - TEST DE FIN DE FROGRAMME 

100 IF T=0 THEN 310 

110 FRINT "NOMBRE DE COMPOSANTS"; 

120 INFUT N 

130 Z=0 

140 REM — ENTRER LES DONNEES FOUR CHAQUE COMFOSANT 
150 FOR I=1 TON 

160 FRINT "COMPOSANT"; 1 


170 FKINT "TEMFS MOYEN D'USURE": 
180 INFUT W 


190 FRINT "TAUX MOYEN DE FANNES"3: 
200 INPUT F 
210 KEM - TENIR COMPTE DE CHAQUE COMPOSANT FOUR LA FIARILITE 
220 Z=2+1/W+F 
NEXT I 
FRINT 
REM — CALCUL ET IMFRESSION DE LA FIABILITE 
Z=EXF (—-ZXT) 
FRINT "FIARILITE DE SYSTEME=";CSNG(Z) 
FECINT 
FREM — RELANCE DU FROGRAMME 
GOTO 70 
FRINT:FRINT AÆXEXX FIN DU FROGRAMME XKXX4xx" 


Exemple : 


Calculer la fiabilité d’un système d’ordinateur fonctionnant pendant 1 000 heures avec 
les composants indiqués dans le tableau ci-dessous. 
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(en heures) de pannes 
CCR EE 


FIARILITE D'UN SYSTEME 


(ENTRER © FOUR ARRETER LE FROGRAMME) 
DUREE DE FONCTIONNEMENT EN HEURESF 1900 
NOMBRE DE COMPOSANTS? 4 

COMFOSANT 1 

TEMFS MOYEN D'USURET 15000 

TAUX MOYEN DE FANNES? .0002 

COMFOSANT ? 

TEMFS MOYEN D'USURE?F 2000 

TAUX MOYEN DE FANNES? .0001 


COMFOSANT 5 

TEMFS MOYEN D'USURET 50G0 
TAUX MOYEN DE FANNES?F .00015 
COMFOSANT 4 

TEMFS MOYEN D'USURE®T 15009 
TAUX MOYEN DE FANNES? .00015 


FIABILITE DE SYSTEME= . 1355538535 


DUREE DE FONCTIONNEMENT EN HEURES? 0 


XAXXX FIN DU FROGRAMME XX4X%X 
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10 

20 

F0 

40) 

50 

60 

70 

80 

90 

100 
105 
110 
120 
170 
140 
150 
160 
170 
180 
190 
200 
219 
220 
250 
240 
250 
260 
270 
280 
290 
300 
310 


3220 
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TAUX MOYEN DE CROISSANCE, 
PROJECTIONS DANS L’AVENIR 


Ce programme calcule le taux moyen de croissance d’une société et projette ensuite des 
quantités dans l’avenir. Le taux de croissance ainsi que les projections peuvent être calculés 
pour toute grandeur caractéristique de la société telle que ventes, bénéfices, nombre 
d'employés ou clientèle. On doit indiquer les quantités obtenues pour un certain nombre 
d’années consécutives écoulées. 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "TAUX MOYEN DE CROISSANCE, PROJECTION DANS L'AVENIR" 
COLOR 7,0,0 
DEFDERL A-Z : DEFINT I,N 
FRINT 
REM - DE 70 À 180 UNE ENTREE EST NECESSAIRE 
FRINT "NOMBRE D'’ANNEES DONT LES VALEURS SONT CONNUES (O=ARKRET) " 
INFUT N 

IF N=O THEN 480 

REM — DIMENSIONNER LE TABLEAU AU NOMERRE D'ANNEES FASSEES 
REM — DONT LES VALEURS SONT CONNUES 

DIM S(N) 

FOR I1=1 TON 

IF Ii THEN 160 

FRINT "OUANTITE: ANNEE "31; 

GOTO 170 

FRINT "'QUANTITE: ANNEE"31: 

INFUT SI) 

NEXT I 

REM — INITIALISATION DES VARIABLES FOUR LA FREMIERE ANNEE 
T=LOG(S(1)) 

V=0 

REM — HOUCLE FOUR LES ANNEES FASSEES KESTANTES 

FOR 1=2 TO N 

L=LOG(S(I)) 

TET4+L 

V=U+CI-1) XL 

NEXT I 

REM — CALCUL DU TAUX MOYEN DE CROISSANCE 

A=6GX (EXV/ (N—-1)-T)/ (MN) / (N+1) 

G=EXF (A) -1 

REM — ARRONDIR ET IMFRIMER 

FRINT "TAUX MOYEN DE CROISSANCE="3:INT(G#10000+.5)/1003 "7%" 


180 


FRINT 

REM — CALCUL DU TAUX MOYEN DE CROISSANCE ANNUELLE 
S=<EXP(T/N-AX (N—-1) /2) 

FRINT "ENTRER O FOUR RELANCER LE FROGRAMME" 

REM — ENTRER LES ANNEES ET LES NOMBRES 

FRINT "VENTES FROJETEES FOUR L’ANNEE"; 

INFUT Y 

REM — TEST FOUR RELANCER LE FROGRAMME 

IF Y=OQ THEN CLEAKR: GOTO 40 

REM — CALCUL DE LA VALEUR DES VENTES FROJETEES 
S1=S*#(1+6)%(Y-1) 

REM — ARRONDIR ET IMFRIMER 

FRINT *" ="; INT(S1K100+.5)/100 
REM — RETOUR FOUR AUTRES DONNEES 

GOTO 2:80 

FRINT:FRINT "XXXXX FIN DU FROGRAMME XXXxxx" 


Exemple : 


Les nombres de livres empruntés à la bibliothèque de Claremount County sont donnés 
par le graphique ci-dessous. Quel est le taux moyen de croissance ? Combien de livres va-t- 
on vraisemblablement prêter dans les dixième et vingtième années de fonctionnement ? 


livres prêtés 
(en milliers) 


TAUX MOYEN DE CROISSANCE, FROJECTION DANS L'AVENIR 


NOMERE D'ANNEES DONT 
QUANTITE: ANNEE 
QUANTITE: ANNEE 
QUANTITE: ANNEE 
QUANTITE: ANNEE 
QUANTITE: ANNEE 
QUANTITE: ANNEE 
CUANTITE: ANNEE 


ES VALEURS SONT CONNUES (O=ARRET)? 9 
26 


7e 
ne) 


45 
41 
51 


F7 60 


( 
en) 
Le) 
7 47? 
? 42 
? 
7 
7 


NOR 


ENTRER 
VENTES 


VENTES 


VENTES 


NOMÈRE 


XYXXXX FIN DU FROGRAMME XKkXxXxxX 


QUANTITE: ANNEE 8 7 62 
QUANTITE: ANNEE 9 7 74 
TAUX MOYEN DE CROISSANCE= 


11.88 7% 


Q FOUR FELANCER LE FROGRANME 
FROJETEES FOUR L’ANNEE?T 10 


= 61.29 
FROJETEES FOUR L'ANNEE? 20 
= 249.88 


FROJETEES FOUR L'ANNEE? 0 


D'ANNEES DONT LES VALEURS 
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SONT CONNUES (O=ARRET)IF © 


10 

20 

FO 

40 

50 

60 

70 

89 

0 

100 
119 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2750 
240 
250 
260 
270 
289 
290 
500 
310 
320 


FSEO 
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JOUR DE LA SEMAINE 


Ce programme calcule le nom du jour de la semaine correspondant à une date donnée. Il 
sortira par exemple que le 25 décembre 1980 tombe un jeudi. 


On doit indiquer la date sous une forme numérique avec dans l’ordre le jour, le mois, 
l’année. Le 12 septembre 1975 sera entré sous la forme 12, 9, 1975, en s’assurant que des vir- 
gules et non des barres (/) ou des tirets (-) séparent les nombres. 


Ce programme utilise des barre obliques ( \) et ( /) qui ne doivent pas être confondues. 


KEY OFF : CLS :COLOR 0,7,0 
FRINT "JOUR DE LA SEMAINE" 
COLOR 7,0,0 
FRINT 
EM - TABLEAU DES NOMS DES JOURS DE LA SEMAINE 
DATA SAMEDI, DIMANCHE, LUNDI , MARDI, MERCREDI , JEUDI, VENDREDI, 
FOR I1=0 TO 6:READ DAY#(I):NEXT 
REM - UNE ENTREE EST NECESSAIRE 
FRINT "(ENTRER 0,0,0 FOUR ARRETER LE FROGRAMME) " 
FRINT "JOUR, MOIS, ANNEE?" 
INFUT 3" "3 D,M,Y 
REM - TEST DE FIN DE FROGRAMME 
IF M=9 AND D=0 AND Y=0 THEN 340 
REM - CONTROLE DE LA VALIDITE DES DATES 
IF M:O OR M>12 OR D>31 THEN 200 
IF ((M£B AND M/2=M\2) OR (M7 AND M/223%M\2)) AND D:30 THEN 200 
IF M£3:2 THEN 220 
IF (Y/4€3Y\4 OR (Y/100=Y\100 AND Y/4002%>Y\400)) AND D>?8 THEN 200 
IF D£30 THEN 226 
PRINT CHR$(7);:GOTO 100 
REM -— DOIT-ON ADAFTER L'ENTREE FOUR LES CALCULS 
IF M>? THEN 270 
REM — ADAFTATION DE L'ENTREE 
M=M+12 
Y=Y-1 
REM — CALCUL DU NUMERO DU JOUR 
NE=D+RKM+INT (6 (M+1))+Y+Y\4-Y\100+Y\400+2 
N=N MOD 7 
REM - UTILISER LE NUMERO DU JOUR COMME INDICE FOUR DAY() 
FRINT " EST UN “DAYS (N) 
FRINT 
REM — RELANCE DU FROGRAMME 
GOTO 100 
FRINT : PRINT "XXXXX FIN DU PROGRAMME XKkXk4x" 
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Exemples : 
Peggy est née le 4 mars 1953. Quel jour de la semaine était-ce ? 


L’oncle Louis a eu un rendez-vous le 30 septembre 1977. Quel jour était-ce ? 


JOUR DE LA SEMAINE 


(ENTRER 0,0,0 FOUR ARRETER LE FROGRAMME) 
JOUR, MOIS, ANNEE? 
7 1,1,2001 EST UN LUNDI 


JOUR, MOIS, ANNEE? 
7 14,7,1789 EST UN MARDI 


JOUR, MOIS, ANNEE? 
8 25,12,198$5 EST UN MERCREDI 


JOUR, MOIS, ANNEE? 
7? 0,0,0 
XXXKXX FIN DU FROGRAMME XHKXKX 
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NOMBRE DE JOURS 
ENTRE DEUX DATES 


Ce programme calcule le nombre de jours entre deux dates données. Les années bissexti- 
les sont prises en compte. Le programme suppose qu’il se passe un jour entre aujourd’hui et 
demain ; par exemple, il y a deux jours entre le 1° et le 3 mars de la même année. 


Pour être certain d’utiliser correctement ce programme, il faut prendre quelques précau- 
tions. Premièrement, il faut s’assurer de rentrer d’abord la date la plus ancienne. Deuxième- 
ment, les dates sont entrées sous la forme numérique (3 et non mars) et dans l’ordre normal 
(soit jour, mois, année ; par exemple : 17, 3, 1976). Les chiffres doivent être séparés par des 
virgules et non par des barres obliques ou des tirets. 


Troisièmement, l’année ne doit pas être tronquée (1976 et non 76), même si les deux 
dates appartiennent au même siècle. 


Enfin, le mois entré ne doit pas être supérieur à 12 ni le nombre de jours supérieur à celui 
du mois correspondant. Dans le cas contraire, le message DATE INEXISTANTE sera 
imprimé afin d’attirer l’attention sur le fait qu’une date impossible (telle que 32, 14, 1975) a 
été entrée. Une réponse incorrecte en résultera probablement. 


HEY OFF : CLS :COLOR 0,7,0 
PRINT "NOMBRE DE JOURS ENTRE DEUX DATES" 
COLOR 7,0,0 
FRINT 
FRINT "PREMIERE DATE (JOUR, MOIS, ANNEE) "; 
INFUT D1,M1,Yi 
REM — VALEUR DES VARIABLES A UTILISER DANS LE SOUS-FROGRAMME 
Mat 
D=D1 
Y=Y1 
GOSUE 260 
IF UR THEN 50 
GOSUE 460 
REM — CONSERVER LE NOMBRE DE JOURS CALCULE DANS N 
NA 
FRINT "SECONDE DATE (JOUR, MOIS, ANNEE)": 
INFUT D2,M2,YZ 
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180 
190 
E00 
210 


2720 


280 
290 


500 


CTI) 
éL1t 
820 


REM — VALEUR DES VARIABLES A UTILISER DANS LE SOUS-FROGRAMME 
M=M2 


DD? 


VA com NA TD 
ER ES 


GOSUE 560 

IF OUR THEN 160 

GOSUR 460 

REM -— CALCUL DE LA DIFFERENCE, IMPRIMER 


N=A-N 
FRINT "DIFFERENCE ="3;N; "JOURS" 
FRINT 


REM — RELANCE OÙ ARRET DU FROGRAMME? 

FRINT "AUTRES DONNEES (1=OUI O=NON) "; 

INFUT X 

IF X=1 THEN 40 

REM — FIN DU FROGRAMME 

GOTO 620 en 

REM — SOUS-FROGRAMME DE TEST DES DATES INEXISTANTES 

UR=C 

IF MO OR M>12 OR D:31 THEN 420 

IF C(MEB AND M/2=M\2) OR (Më7 AND M/2£3M\2)) AND D>30 THEN 4270 
IF M£:2 THEN 430 

IF (Y/4#3Y\4 OR (Y/100=Y\100 AND Y/400%5%Y\400)) AND D:28 THEN 420 
IF D‘30 THEN 430 

PRINT CHR$(7) "DATE INEXISTANTE": UR:=-1 

RETURN 

REM — GSOUS-FROGRAMME: NOMBRE DE JOURS ENTRE 0,0,0 ET D,M,Y 

REM - TABLE DU NOMBRE DE JOURS ENTRE LE FREMIER JANVIER 


5 KEM - ET LE PREMIER DE CHAQUE MOIS 


DATA 0,31,59,90,120,151,181,212,243,273,304,3%4 
RESTORE 

FOR Hz1 TO M 

REM — LIRE LE NOMBRE DE JOURS ENTRE LE FREMIER JANVIER ET 
REM -— LE FREMIER DU MOIS SUR LA TABLE 

READ À 

NEXT H 

REM — CALCUL DU NOMBRE DE JOURS DEFUIS JC (0,0,0 À DM, Y) 
A=A+YXT6S+Y\4+D+1-Y\100+Y\400 

REM — ANNEE RISSEXTILE? 

IF (Y/4£3Y\4 OR (Y/100=Y\100 AND Y/400£:Y\400)) THEN 619 
REM — L'ANNEE EST HISSEXTILE : SI LE MOIS EST 

REM — JANVIER OÙ FEVRIER AJUSTER LE CALCUL 

IF M: THEN 610 

A 1 

REM — FIN DU SOUS-FROGRAMME, RETOUR AU FROGRAMME FRINCIFAL 
RETURN 

FRINT:FRINT UXKKXKX FIN DU FROGRAMME KkkkXX" 


Exemple : 


La date de naissance de John est le 8 août 1951. Combien de jours aura-t-il à son tren- 
tième anniversaire ? 
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NOMBRE DE JOURS ENTRE DEUX DATES 


PREMIERE DATE (JOUR, MOIS, ANNEE)? 8,8,1951 
SECONDE DATE (JOUR, MOIS, ANNEE)? 8,6,1981 


DIFFERENCE = 10958 JOURS 
AUTRES DONNEES (1=QOUI O=NON)? 0 


XX#XKXEX FIN DU FROGRAMME ##4%# xx 
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CONVERSION 
DES UNITÉS ANGLAISES 
EN UNITÉS MÉTRIQUES 


Ce programme convertit la mesure d’une grandeur donnée en unités anglaises en unités 
métriques et vice-versa. Les conversions disponibles dans ce programme sont : 


. Pouces (inches)/centimètres 

. Pieds (feet)/centimètres 

. Pieds (feet)/mètres 

. Yards en mètres 

. Miles en kilomètres 

. Cuillères à thé (teaspoons)/centimètres cubes 
. Cuillères à soupe (tablespoons)/centimètres cubes 
. Tasses (cups)/litres 

. Pintes (pints)/litres 

10. Quarts/litres 

11. Gallons/litres 

12. Bushels/litres 

13. Pecks/litres 

14. Onces (ounces)/grammes 

15. Livres (pounds)/kilogrammes 

16. Tonnes (tons)/kilogrammes 

17. Degrés Fahrenheit/degrés Celsius 


© © OO GA B © D = 


On doit choisir le sens de la conversion, puis le type de conversion et, enfin, introduire la 
valeur à convertir. 


LIST 

10 KEY OFF : CLS :COLOR 0,7,0 

20 FRINT "CONVERSION DES UNITES ANGLAISES/UNITES METRIQUES" 
30 COLOR 7,0,0 

40 DEFDBL A-Z : DEFINT N 

50 DEF FNR O0 INT (XK100000!+,5)/100000! 

60 FRINT 


70 REM — ETABLIR LES VARIABLES FOUR 17 FACTEURS DE CONVERSION 
80 DIM C(17),A$(17),M#(17) 

90 REM -— ROUCLE FOUR LECTURE DES FACTEURS DANS €C() 

100 FOR N=1 TO 17 

119 FREAD CN) 

120 NEXT N 
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500 
510 
920 
RTE) 
340 
550 
560 
570 
980 
390 
600 
610 


REM - TABLE DES 17 FACTEURS DE CONVERSION 

DATA 2.540,30.480,.23048,.9144,1.609,4.929,14.78B,.27%66,.4722 
DATA .9463,3.785,35.24,8.809,28.:495,.4536,907.2,.55595555 

REM - TABLE DES UNITES 

DATA UNITES METRIQUES,UNITES ANGLAISES 

DATA FOUCES, CENTIMETRES, FIEDS, CENT IMETRES, FIEDS, METRES, YARDS, METRES 
DATA MILES, KILOMETRES, TEASFOONS, CENTIMETRES CUBES, TABLESFOONS 
DATA CENTIMETRES CUBES, CUFS, LITRES, FINTS, LITRES, QUARTS, LITRES 
DATA GALLONS, LITRES, BUSHELS, LITRES, FECKS, LITRES, ONCES, GRAMMES 
DATA LIVRES, HILOGRAMMES, TONS, HILOGRAMMES, FAHRENHEIT, CELSIUS 
FOR N=O TO 17:READ A% (N) , M$ (CN): NEXT 

PRINT “Entrez -1 pour "A$(O0)" en "M$(0O) 

PRINT " 1 pour "M$(0)" en "A$(0) 

INFUT ‘ “;D 

IF ABS(D)<>1 THEN FRINT CHR#(7)::GOT0 240 

IF D=1 THEN 330 

FOR N=O TO 17 

SUAF A$ CN), M# (CN) 

NEXT 

D=-D 

FRINT 

FOR N=0 TO 17 

PRINT USING "## DE ":N:2 PRINT ASCN)" EN "M$ 4(N) 

NEXT 

REM — FAIRE LA CONVERSION AVEC LE FACTEUR AFFROFRIE 

PRINT 

PRINT "(POUR ARRETER LE FROGRAMME: -99) 

PRINT “(FOUR CHANGER DE TYFE DE CONVERSION) 

FRINT "QUEL TYFE DE CONVERSION"; 

INFUT N 

REM — FIN DU FROGRAMME 7? 

IF N=-99 THEN 610 

REM — CHANGEMENT DU TYFE DE CONVERSION 

IF N=99 THEN 340 

REM — CONVERSION FOSSIELE 

IF NEO OR N17 THEN FRINT CHR$(7)::GOTO 410 

REM - CHANGEMENT DE CONVERSION 

IF N=0 THEN 290 

FRINT "VALEUR À CONVERTIR": 

INFUT I 

REM - EFFECTUER LA CONVERSION 

R'=IXC (N) “D 

REM — FOUR UNE CONVERSION DE TEMFERATURE, UTILISER LA LIGNE 570 
IF N:>17 THEN 560 

R'=R!+17.777777#X (D=1)-3524 (D=-1) 

PRINT I3A$ CN)" ="FNR(R!) 3; M& (N) 

REM — RELANCE DU FROGRAMME 

GOTO 370 

PRINT: PRINT HAONX FIN DU FROGRAMME XX4444" 


Exemple : 


Faire les conversions suivantes : 
8,5 miles en kilomètres 

75° Fahrenheit en degrés Celsius 
10 gallons en litres 


189 


CONVERSION DES UNITES ANGLAISES/UNITES METRIQUES 


Entrez -1 pour UNITES METRIQUES en UNITES ANGLAISES 
1 pour UNITES ANGLAISES en UNITES METRIQUES 
4 


UNITES METRIQUES EN UNITES ANGLAISES 
FOUCES EN CENTIMETRES 

FIEDS EN CENTIMETRES 

FIEDS EN METRES 

YARDS EN METRES 

MILES EN KHILOMETRES 

TEASFOONS EN CENTIMETRES CURES 
TABLESFOONS EN CENTIMETRES CURES 
CUFS EN LITRES 

FINTS EN LITRES 

QUARTS EN LITRES 

GALLONS EN LITRES 

EUSHELS EN LITRES 

FECES EN LITRES 

ONCES EN GRAMMES 

LIVRES EN FILOGRAMMES 

TONS EN KILOGRAMMES 

FAHRENHEIT EN CELSIUS 


CDN UBIAT) 


ES 


(POUR ARRETER LE FROGRANME : -99) 
(FOUR CHANGER DE TYFE DE CONVERSION) 
QUEL TYFE DE CONVERSIONF 5 

VALEUR À CONVERTIR? 8.5 

8.5 MILES = 13.6765 KILOMETRES 


(FOUR ARRETER LE FROGRAMME:-99) 
(FOUR CHANGER DE TYPE DE CONVERSION) 
QUEL TYFE DE CONVERSIONF 17 
VALEUR À CONVERTIR? 75 

75 FAHRENHEIT = 25.868889 CELSIUS 


(FOUR ARRÊTER LE FROGRAMME : -99) 
(FOUR CHANGER DE TYFE DE CONVERSION) 
QUEL TYFE DE CONVERSION?F 11 
VALEUR À CONVERTIR? 10 

10 GALLONS = 37.85 LITRES 


(FOUR ARFRETER LE PROGRAMME :-99) 
(FOUR CHANGER DE TYFE DE CONVERSION) 
QUEL TYFE DE CONVERSION? © 


UNITES ANGLAISES EN UNITES METRIQUES 
CENTIMETRES EN FOUCES 
CENTIMETRES EN FIEDS 

METRES EN FIEDS 

METRES EN YARDS 

ÉHILOMETRES EN MILES 

CENTIMETRES CUBES EN TEASFOONS 
CENTIMETRES CUBES EN TABLESFOONS 
LITRES EN CUFS 

LITRES EN FINTS 

LITRES EN QUARTS 

LITRES EN GALLONS 

LITRES EN EUSHELS 

LITRES EN FECES 


mm 
HOLD NTURiAM 


3 
LS) 
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14 DE  GRAMMES EN ONCES 

15 DE FILOGRAMMES EN LIVRES 
16 DE HILOGRAMMES EN TONS 
17 DE CELSIUS EN FAHRENHEIT 


(FOUR AKRETER LE FROGRAMME:-99) 
(FOUR CHANGER DE TYFE DE CONVERSION) 
QUEL TYFE DE CONVERSION?F 5 
VALEUR À CONVERTIR? 1.6 

1.6 FILOMETRES = .99441 MILES 


(FOUR ARRETER LE FROGRAMME:-99) 
(FOUR CHANGER DE TYFE DE CONVERSION) 
QUEL TYFE DE CONVERSION? 17 


VALEUR À CONVERTIR? -40 
—-49 CELSIUS =-40 FAHRENHEIT 


(FOUR ARRETER LE FROGRAMME:-99) 
(FOUR CHANGER DE TYFE DE CONVERSION) 
QUEL TYFE DE CONVERSION®T 11 
VALEUR À CONVERTIR®F 4 

4 LITRES = 1.0568 GALLONS 


(FOUR ARRETER LE FROGRAMME:-99) 
(FOUR CHANGER DE TYFE DE CONVERSION) 
QUEL TYFE DE CONVERSION?F -99 


AAXXXX FIN DU FROGRAMME XX#XKAX 
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MISE EN ORDRE ALPHABÉTIQUE 


Ce programme dispose par ordre alphabétique une liste de mots ou de phrases. 


Des nombres peuvent être inclus dans une phrase alphanumérique. Cependant, ils ne 
seront pas mis dans un ordre numérique, à moins qu’ils ne contiennent le même nombre de 
chiffres. Les nombres ayant moins de chiffres devront être calés à droite par des zéros en 
préfixe. Ainsi, si les nombres à ordonner se classent dans les centaines, le nombre 13 sera 
entré comme 013. 


10 
EQ 


30 


4) 
‘ 0) 
OYe) 
70 
50 
30 


FEY OFF : CLS :COLOR ©,7,0 

FRINT "MISE EN ORDRE ALFHARETIQUE" 

COLOR 7,0,0 

FRINT 

PRINT "(ENTRER © FOUR ARRETER LE FROGRAMME) " 
CLEAR 2500 

FRINT "NOMBRE D°ITEMS"; 

INFUT N 

HEM — FIN DU FROGRAMME 


100 [IF NzOQ THEN 450 
110 KEM - LIMITE DU TABLEAU: NOMBRE D'ITEMS FAR TRAITEMENT 
120 DIM A (CN) 


1:50 
140 


150 


FOR I=i TON 
FRINT "ITEM";l; 
INFUT A$(I) 


160 NEXT I 


170 
180 


RER - CETTE TECHIQUE DE CLASSEMENT COMPARE LES ITEMS 
REM — INCREMENTS DECROISSANTS. AU FREMIER FASSAGE 


190 REM - N/2 COMFARAISONS SONT EFFECTUÉES, AU SECOND 


ne 
200 


RENM — N/2/2 ET AINSI DE SUITE 


de ed 


192 


MEN 

M=MN\2 :REM -— UTILISER LA HARRE OKLIQUE INVERSE 
IF M=O THEN 2359 

E=N-M 

J=1 

1=J 

L=1-+M 

IF AGSC(I)SE=AS(L) THEN 220 

SUWAF A$CI),A% (L) 

TI=I-M 

IF I:z1 THEN 270 

J=J+1 

IF JE THEN 220 

GOTO 260 

FRCTNT 

FOR I=i TON 

REM — IMPRESSION DES ITEMS CLASSES 
FRINT A#&(1I) 

NEXT I 

FRINT 

REM — RELANCE DU FROGRAMME 
CLEAR:GOTO 60 

FRINT:FRINT UXXKXXX FIN DU FROGRAMME #KKXKXx" 


Exemple : 
Disposer par ordre alphabétique les noms suivants : 


Robert Wilson 
Susan W. James 
Kent Smith 
Michael Mitchell 
Ann T. McGowan 
Alexander Lee II 
Mary Mitchell 
Davy Bowers 
Steven Evans 


LIST RUN 
MISE EN ORDRE ALFHABETIQUE 


(ENTRER O©O FOUR ARRETER LE FROGRAMME) 
NOMERE "ITEMS?F 9 

ITEM 7 Kobert Wilson 

ITEM ©? 7 Susanne W.James 

ITEM 5 © Fert Smith 


ITEM 7 Michael Mitchell 
ITEM » Ann tT.McGovan 
ITEM ? Alexandre Lee TI 
ITEM » Marie Mitchell 
ITEM ? Davy Howers 

ITEM ? Steven Evans 
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Alexandre Lee II 
Ann T.McGovan 
Davy Bowërs 

Eent Smith 

Marie Mitchell 
Michael Mitchell 
Robert Wilson 


Steven Evans 
Susanne W.James 


NOMBRE D'ITEMS? 0 


XYXXX FIN DU FROGRAMME XX#XX 
(RIA 


OPTION 


On peut souhaiter mettre la liste dans l’ordre alphabétique inversé ou du plus élevé au 
plus bas. Les changements nécessaires du programme sont donnés ci-dessous. 


1 KEM — OFTION 280 

10 FEY OFF : CLS :COLOK 0,7,0 

20 FRINT CMISE EN ORDRE ALFHABETIQUE" 

30 COLOR 7,0,0 

40 PFRINT 

JO FRINT "CENTRER 0 FOUR ARRÊTER LE FROGRAMME) " 

60 CLESKR 2500 

7Q FRINT "NOMRRE D'ITENS"3: 

89 [INFUT ON 

90 KEM FIN DU FROGRSMME 

100 IF N=OQ THEN 470 

110 REM + LIMITE DU TABLEAU: NOMBRE D'ITEMS FAR TRAITEMENT 
120 DIM 9% CN) 

150 FOR I1=i TO N 

140 FRINT "ITEN"Ss I: 

150 INFUT A$(1I) 

160 NEXT I 

170 KEM CETTE TECHIQUE DE CLASSEMENT COMPARE LES ITEMS 


REM INCREMENTS DECROISSANTS. AU FREMIER FASGAGE 
REM - N/2 COMFAKAISONS SONT EFFECTUEES, AU SECOND 
RE + N/2/2 ET AINSI DE SUITE 

MEN 


M=M\E :REM - UTILISER LA HARKE OBLIQUE INVERSE 
IF Me THEN 250 
ieN-M 
J=i 
1=J 
Le=I+M 
IF ASCI):=AS(L) THEN 220 
SURF AS(I),A$%(L) 
T=1-M 
IF I%=1i THEN 270 
J=J+1 
IF J:k THEN 270 
GOTO 260 
2350 FRINT 
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FOR I=1i TO N 

REM — IMPRESSION DES ITEMS CLASSES 
FRINT AS$(I) 

NEXT I 


FRINT 

REM + RELANCE DU FROGRAMME 

CLEAR: GOTO 60 

FRINT:FRINT "XXK4XX FIN DU FROGRAMME #XXX#" 


Exemple : 


Les scores d’un test mathématique s’échelonnent de 82 à 117. Mettre les étudiants dans 
l’ordre correspondant à leurs scores, du plus élevé au plus bas. 


89 Bowers 
102 Evans 
111 James 
100 Jameson 

99 Lee 
117 McGowan 
102 Mitchell 

82 Mitchell 

97 North 

91 Smith 
108 Wilson 


MISE EN ORDRE ALFHABETIQUE 


(ENTRER O FOUR ARRETER LE FROGRAMME) 
NOMBRE D'ITEMS?T 11 
ITEM 1 7 O89 EROWERS 
ITEM 2? 7 102 EVANS 
ITEM 3 7 111 EVANS 
ITEM # 100 JAMESOHN 
ITEM S5 % 099 LEE 

ITEM 117 MCGOWAN 
ITEM 1072 MITCHEL 
ITEM  O82 MITCHEL 
ITEM # 097 NORTH 
ITEM 10 7% O91 SMITH 
ITEM 11 % 108 WILSON 


117 MCGOWAN 
111 EVANS 
108 WILSON 
102 MITCHEL 
102 EVANS 
100 JAMESOHN 
099 LEE 

097 NORTH 
OS1 SMITH 
089 ROWERS 
O8? MITCHEL 


NOMBRE D'ITEMS?F 0 


#XHXX FIN DU FROGRAMME X4XXX 
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